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1 
2 
3 
4 

5 
6 

7 |FOCAL*GT 

e 

9 >DEOH*GGPSA*A<-LA 

10 

11 fCOPYRIGHT 1972,1973 

12 

13 f DIGITAL EQUIPMENT CORPORATION 

14 jMAYNARD, MASSACHUSETTS S1754 
15 

16 |GT40 CODE BY BOB FRIEDEMTHAL 

17 

18 pEDlT 2 

19 fMARCH 17, 1973 
20 

21 

22 |FOR GT40 CONDITIONALIZATION INSTRUCTIONS* SEE DNEW CODE 

23 JLABELLED #*DNEW*# NEAR END OF THIS LISTING 
24 

25 
26 

27 | DOCUMENTATION MOTES I 

28 IDOUBLE QUOTE MARKS DENOTE TRAP*INSTRUCTlON MQDUtES 

29 |(X3 MEANS THE CONTENT«OF»X, 

30 »ASTERI8KS DENOTE COMMAND MODULES, 

31 l"C,R, "MEANS "CARRIAGE RETURN", 

32 I SINGLE QUOTE MARKS DENOTE A SUBROUTINE, 
33 

34 
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n 




17 




18 




39 




40 




41 


000^00 


42 


000001 


43 


000002 


44 


000003 


45 


000004 


46 


00000S 


47 




48 


000006 


49 


000007 


50 




51 




52 


000000 


53 


000001 


54 


000002 


55 


000003 


56 


000004 


57 


00000b 


58 




59 




60 




fil 


000000 


62 


000001 


63 


000002 


64 


000003 


(S5 


000004 


66 


000005 


67 




68 




69 


000200 


70 


000001 


71 


000020 


72 




73 




74 


000216 


75 


005015 


76 




77 


177560 


78 


177564 


79 


177514 


80 


177550 


81 


177554 


82 


177776 



lASSTGNMFNTS OF REGISTERS 



I AS USED GENERALLY 

TEMPs%0 {SCRATCH 

ACs%l lACCUMULATOR 

PTHs%2 fVARIABLF POINTER 

AXOUT«%3 ITEXT READFP 

CHAR*%4 fCHAPACTFP 

R5e%5 J EXCEPTIONAL USE REGISTER AND RUBOWT PROTECTION 



SP«%6 
PC*%7 



ISTACK POINTER 
rPPOGKAM COUNTER PDP*il 



|AS USED BY OUTPUT CONVERSION 

PbTEMP f PLACES BEFORE ',' 

AC»A£ fTOTAL NO, OF DIGITS, 

E«PTR |NO, OF INTEGER DIGITS 

F«AXOUT fTOTAL HO, OF PLACES, 

CHAR-CHAP pNO, OF DECIMAL POINTS 

R5«R5 I SCRATCH 



|A5 USED BY MAIN FLOATING POINT 



TEMPbTEMP 

ACwAC 

BH«PTR 

BL«AXOUT 

AHsCHAR 

AL«R5 



ONEB200 

ALLM 

NALPHA«20 



CR-216 

CRLF«050!I 

TKS»177560 
TPS«177564 
LPS«l77314 
PRS*177550 
PP3M77554 
STATUS8177776 



(SCRATCH 

1 1NPUT EXPfMAY CONTAIN 0P*C0DE8 
>FLAC HORD»MAY CONTAIN ADDRESS 
»FLAC LORD | HAY BE NEEDED BY FRFAD 
I INPUT HORDfMAY BE NEEDED BY FREAD 
I INPUT LORD 



ISWITCH ASSIGNMENTS 

|0«TERMINATE ON ASCII CODES 
>1«TERMINATE ON |)C,R,ALSO 

f INTERNAL CODE 

IFOR USfc iw "PRINT2, CRLF« 

I TELETYPE KEYBOARD 
fTELETYPE PRINTER 
>LINE PRINTER 
»H,S, READER 
|H f S, PUVCH 



'•MAIM, f *Y11. 

FOCGT,0\ 
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84 






A5 






R6 




000000 


R7 


000000 


000117 


98 






89 


0550004 


001706 


Q0 


000006 


000 34 


91 






92 


000010 


005472 


93 


000012 


000100 


94 






95 


000014 


0017^6 


96 


000016 


000340 


97 






98 




000004 


99 


000020 


003272 


100 


000022 


000340 


101 






1*2 


000024 


005752 


103 


000026 


000340 


104 






105 


000030 


001706 


106 


000032 


000340 


107 






108 


000034 


001714 


109 


000036 


000340 


110 






111 






112 




000060 


113 


000060 


010110 


114 


000062 


000340 


115 






116 






117 






118 






119 






1*0 






m 






192 






133 






124 






125 






126 






127 






128 







00 3 07? 



| MAIN VECTORS 

»*0 pRESERVEfi FOR MAM*,'Af. RESTART VECTOR 

JMP MIRIT2 
I,s4 fERROR TRAP VECTOR! STACK OVFRFLOW TRAP 

STACKO 

340 
f,«10 iRESERVEn INST 

FEMT 

100 
1,814 fOPT 

STACKO 

340 
f,»20 HOT 

DELKTEalOT fREMOVE A LINE OF TEXT 

XDFLET 

340 
ti»24 fPWR»FAIl,/AUT0*RE5TART 

PWRDWN 

340 
f»s30 lEMT 

STACKO 

340 
|,*34 }TRAP 

TRAPH 

340 
f,«40 |SYSTEM VECTORS 



,»60 



KIWT 
340 



fHERE TO »BEGtMi IS EfiROED BY 'IWITi, 

I OTHER VECTORS? 
1,8100 fCLOCK OPTION 

»,«200 ILINE PRINTER 



f.8234 

1 1 *300 



IPATCH AREA 
JUDC VECTOR 
fEXTRA TTY 
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130 








131 








132 






00U00 


133 








134 






001 1 0M 


135 








136 








137 








138 








139 








140 


001 


L00 


000000 


141 


001 


102 


000000 


142 


001 


L04 


006376 


143 


0451 


106 


013353 


144 


001 


110 


006402 


145 


001 


112 


014^32 


146 


p 001 


114 


011026 


147 


' 001 


116 


014012 


148 


001 


L20 


010760 


149 


001 


122 


013442 


1 "»0 


001 


L?4 


010704 


151 


001 


L26 


013762 


1B2 


001< 


130 


011134 


153 


001 


L32 


000560 


154 


001 


L34 


011070 


155 


001 


136 


013343 


156 


001 


140 


010154 


157 


001 


L42 


014110 


158 


001 


144 


010416 


159 


001 


L46 


014042 


160 


001 


L50 


010426 


Ifil 


001 


152 


013477 


162 


001 


L54 


006406 


1*3 


001 


L56 


013662 


164 


001 


160 


010272 


165 


001 


162 


013453 


166 








167 








168 






001166 


169 








170 








171 








172 









><PUBLIC INFORMATIONS 

.■1100 

BEGIW«, IFUNCTION TARLF. BACKS INTO STACK AREA, 

ILIST OF FUNCTION ADDRESSES AND NAMES, 







XABS 

13353 

XSGN 

14032 

XFSBR 

14012 

XCHR 

13442 

XRAN 

13762 

XEX 

560 

XADC 

13343 

XSQT 

14110 

FSIN 

14042 

FCOS 

13477 

XITR 

13662 

XFCLK 

13453 



EWDbOF^LIST marker, 

FAB8 ■•ABSOLUTE VALUE 

FSGN -SIGN PART 

FSbR »USER DEFINED ** r EW FUNCTION 

FCHR -INPUT/OUTPUT OF CHARACTER DATA 

FRAN -RANDOM NUMBER 

FX -EXPERIMENTAL UNIBUS CONTROL 

FADC -READ ANALOG TO DIGITAL CONVERTER 

FSQT -SQUARE ROOT 

FSIN -TRIG FUNCTIONS 

FCOS •COSINE 

FIT* •INTEGER PART 

FCLK -CLOCK TIME 



FNTABL«,+2 >Sf»ECXAL T0P8X»TURVEY TABLE, 

tFUNCTION TABLE BACKS IKTO STACK ARSA, 

fHASH CODE IS FORMED FROM 7-BIT ASCII WITH PLACE VALUE OF 4*N 

|£',G, FX«F#4+X«106#4 + U0«560 

fBITS OFF LEFT ARE LOSTf ZEROS COME IN FROM RIGHT, 



UM.j 


1 -yi l B 


,620 !9wMAR«73 


"GT.2 


V 






174 








175 




103414 




176 








177 




104600 




178 


001164 


002406 




179 




J 04602 




180 


001166 


002440 




181 




104604 




182 


001 170 


003002 




183 




104606 




184 


001172 


002710 




185 




104610 




186 


001174 


010052 




187 




104612 




188 


001176 


010022 




189 




104614 




190 


001200 


003232 




191 




104616 




192 


001202 


003136 




193 




104620 




194 








195 








196 








197 








198 


001 204 


002334 




199 




104622 




200 


0tfl2?6 


002454 




?«1 




104624 




202 


001210 


002566 




203 




104626 




204 


0*1212 


003100 




2C95 




104630 




206 


001214 


004040 




207 




104632 




208 


001216 


002034 




209 




104634 




210 


001220 


003126 




2U 




104636 




212 


001222 


005100 




213 




104640 




214 


001224 


004050 




215 




104642 




216 


001226 


002626 




217 




104644 




218 


001230 


002654 




219 




104646 




220 


001212 


005206 




221 




104650 




222 


001234 


002672 




??3 




104652 




224 


001236 


002616 




22f» 




104654 




776 


001240 


002372 




22? 




104656 





13|01 PAGE 5 



JMSsi04400*,+200 

SORT J = JMS ♦, 

SORTB 
SORTC ■ JMS +, 

SORTD 
PRIMTC s JMS +, 

OUT 
READC ■ JMS *, 

CHIN 
OUTCH a JMS +, 

XOUT 
INCH a JMS ♦, 

XI33 
GF.TC « JMS ♦, 

GETX 
PACKC « JMS +, 

PACKX 
TKSTC « JMS ♦, 





TESTX 


GETLN 


a JMS +, 




GETLNX 


FINOI.N 


a JMS *, 




FINDX 


PRNTLN 


m JMS +, 




XPRNTL 


COPXLN 


* JMS + , 




COPYLX 


START 


a JMS ♦ ', 




STARTX 


SPNOR 


a JMS + , 




SPNORX 


ERASEV 


■ JMS ♦ , 




FRVX 


ERASET 


a JMS 4, 




FRTX 


PRINT2 


a JMS 4", 




PRIN2A 


DIGTST 


a JMS +, 




DIGT3A 


PARTST 


a JMS ♦, 




PARTSA 


GROOVY 


a JMS ♦, 




GROVX 


SKPLPR 


a J*S +, 




XT8TT-P 


8KPNON 


a JMS ♦, 




SKPfcOX 


TASK 


a JMS ♦ , 



fTRAP-lNTERPRETIVE TABLE 

I SORT AND BRAx'CH ON fCHAP) 

iSORT CHAH 

fPRINT CHARTS 

iPFAn DATA INTO CHAR AMD PRINT IT»S 

fOUTPUT TO A DEVICE 

I INPUT FROM A DEVICE 

I UNPACK A CHARACTER** 

I SAVE A CHARACTER «S 

fRFTTjRNS ON fCHAR)a 

I TERM 

f NUMBER 

fFUNCTION 

|RETURN»ON*LETTEP 

lUNPACK AND FORM A LINENUMBER 

fSKARCH FOR A GIVEN LINE 

fPRINT (LINENQ) 

I READ NEXT LINE NUMBER 

! RETURN TO COMMAND/INPUT MODE 

I IGNORE SPACES»S 

fERASE AND SET VARIABLES, 

I ERASE TEXT 

fPRINT TWO CHARACTERS 

ITK6T FOR A DIGIT OF INDICATED PLACE VALUE 

fCHECK FOR PARENTHESIS MATCH. 

tCOMPARE GROUP NOS, 

ISKIP !F (CHAR1 IS A LEFT PARENS, 

I SKIP TF NOT A NUMBER 

JDO FORMAT CONTROLS FOR »ASK#TYPF# 
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228 001242 0555412 

229 10466(3 
2W 001244 004664 



TASKX 
FVAL.X » JMS +, 
EVALUX 



| H PUSHJ F.VAL-2" 



focgt 



:( 
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232 
233 

2*4 
215 
216 
217 
218 
219 
240 
241 
242 
243 
244 
24b 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 



001246 104662 



104400 



024646 
022626 
104400 
000207 



..TMS + . fSpARE FOR PATCHES'. 



ERROR«104400 

I PUSH J XsJSR PCX 



f TRAP 



OPENO024646 
CLOSF«022626 
PRI**T«i04400 
POPJe207 



ICMP m(SP), -CSP) 
>CMP £SP5+» CSP) + 
»TRAP+C0«1,177) FOR ASCII COHfcS, 
|RTS PC 
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297 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
266 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 



001250 
001252 
001254 
001256 
001260 
001262 
001264 
001266 
001270 
001272 
001274 
001276 
001300 
001302 
0013JU 
0K1306 
001310 
001312 
001314 
001316 
001320 
001322 
001324 
001326 



001250 



F05244 
003502 
003524 
004066 
003744 
004222 
003436 
003502 
001374 
003502 
001704 
001502 
003552 
003502 
010336 
003502 
002034 
003516 
004222 
005224 
003502 
001502 
003646 
003544 



COMLSTs, 


|*FOCAL# < 


:OMMAND DECODING MST 






fF.NGMSH 


1 FRENCH 


I SPANISH 


1 GERM A' 1 


ASK 


|ASK 


fDE'-'A^'QF 


lINTEH ROGUE 


lERAGE 


FRRORC 


IBFGTN 


ILEVE 


1 XECUTE 


ICOMMENCE 


PCI 


j COMMENT 


ICOMMENTE 


fCOMENTARIO 


|KOMME«TAR 


no 


IDO 


fFAIZ 


lHAGA 


f^ACHE 


ERASE 


fERASE 


IB IEEE 


fHORRE 


fLOSCHE 


FOR 


|FOK 


iQUAtfO 


fPAHA 


IDAEOR 


GOTO 


»GOTO 


|VA 


|ADELA«TE 


IGEHZU 


ERRORC 


fH» 


rK* 


rG- 


?U» 


IF 


flF 


ISI 


»SI 


|WENM 


ERRORC 


»J« 


[J- 


J* 


Il» 


STOP 


IKILL 


HAt-TE 


[HALiTE 


fHALT 


ERRORC 


ILIBRARY 


ENTERPOSE 


lLAZO 


IBILRLIOTHE 


MODIFY 


IMODIFY 


MODIFIF 


MODTFTOUE 


lANDERE 


FRRORC 


|Nv | 


G- 


V* 


tJ« 


PROGIO 


pOPERATE j 


PRATIQUE | 


OBRAHE 


lOBKRATE 


FRRORC 


fP« ) 


Km | 


N* 


?N« 


STARTX 


fQUIT j 


ARRETE | 


DETENGA8E 


fENDE 


RETURN 


f RETURN | 


RETOURNE | 


RETOURNE 


IQUITTE 


SET 


|SET | 


ORGANIZE | 


UBIOUE 


I5ETEE 


TYPE 


ITYPE | 


TAPE j 


TIPPEE 


fRECHNE 


ERRORC 


|U» | 


U* 1 


W» 


»P" 


ERRORC 


»V* \ 


W« | 


Qm 


IV" 


WRTTE 


I WRITE J 


INSCRIS l 


ESCRIBA 


»TIPPE 


XECUTE 


1 XECUTE | 


XECUTE 1 


FLUIR 


1 XECUTE 


1 OTHERS UNUSED! 


lYZ p 


YZ | 


YZ 


tYZ 



ITO CHANGE LANGUAGE* ALPHABETIZE ON THE APPROPRIATE COLUMN, 



.MAIM, 
FOCGT 



:< 



'*C¥J 1.620 }9»MAR«73 13101 PAGE 8 



290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
3*0 
301 
302 
3*3 
3*4 
3*5 
3*6 

30? 
308 
309 
31* 
311 
312 
3!3 
314 
315 
316 
317 
318 
315 
320 
321 
322 
323 
324 
325 
326 
327 
328 
3?9 
330 
331 



001330 004300 

001332 004266 

0^1334 004252 

001336 004254 

001340 003534 

001342 003540 



001344 
001346 
001350 
001352 
001354 
001356 
001360 
001362 
001364 



001366 
00137* 
001372 
001374 
001376 



001400 
001402 
001404 



0014*6 
001410 



001344 
00543* 
005442 
005404 
008464 
010564 
005410 
005410 
003534 
003540 



001366 
005372 
0*5340 
005304 
005330 
005304 

001400 
003572 
003564 
003566 

0014*6 
002226 
003620 



ILISTS TO BE TESTED BY 
j"SQPTJ" AND "SORTC 

FLIST2? FLIMIT 
FINFIN 
FINERR 

FLIST1I FIMCR 
TPR 
TPP1 



ATLIST«, 



TINTR 

TQUOT 

TCRLF 

TCRLF2 

TDTJMP 

TA5K4 

TASK4 

TPR 

TPR1 



,aSTANDARD 

feSHORT 

CR*DUMB 



#FOP# 



*a5TAWDARH FORMAT #FOR# 
>eSETfPLUS,..GO TO PROCESS 
C',R,«SET COMMAND— GO TO PCI 

*ASK*TYPE* CONTROL CHARACTER TABLE 

%»KORMAT DELIMITER 

"•LITERAL DELIMITER 

IwCARRIAGF RETURN AND LINE FEED 

fr*CARRIAGE RETURN ONLY 

Si-DUMP ThE SYMBOL TABLE CONTENTS 

SP»TERMINATOR FOR NAMES 

,*TERMINATQR FOR EXPRESSIONS 

|«TERMX«ATOR FOR COWHANDS 

C,R' t "TERMINATOR FOR STRINGS 



f$»FOR 'TOUMPI TERMINATES THE COMMAND! 



INLISTs, 



SRNLST' 



AGO 

ASPACE 

ATAKE 

ARO 

ATAKE 



SCHAR 
SCONT 
5C0NL 



LlSTGO«, 



SRETN 
5F0UND 



flNPUT DATA CONTROL CODES, 

fALTMODEsLEAVE RESULT 

|SPACE»CHECK FOR TERMINATOR FUNCTION 

| IGNORE EQUALS SIGNS 

tRUB OUT 

I IGNORE LINE FEEDS 

|#«ODinf* CONTROL CHARACTER TABLE 

|F t r,«CO*TINUE 

fBELLPCHANGE SEARCH CHARACTER 

fL.F;«FINISH THE LINE AS BEFORE, 



lC t R>BND THE LINE HERE AS IS, 
»CHAR«SEARCH CHARACTER 



•MAIN, MACYU.S20 
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133 




001412 


314 


001412 


040 


135 


001413 


053 


336 


001414 


055 


337 


021415 


057 


338 


001416 


052 


339 


001417 


136 


340 


001420 


050 


341 


001421 


133 


342 


0*1422 


074 


343 


001423 


051 


344 


001424 


135 


345 


001425 


076 


346 


001426 


054 


347 


001427 


073 


348 


001430 


015 


349 


001431 


075 


3*0 


001432 


000 


351 






352 




001433 


353 


001433 


045 


354 


001434 


042 


355 


001435 


041 


356 


001436 


043 


357 


001437 


044 


358 


001440 


200 


359 






360 




0^1441 


3*1 


001441 


214 


362 


001442 


215 


363 


001443 


216 


364 


001444 


000 


365 






366 




001445 


367 


001445 


175 


368 


001446 


200 


369 


001447 


217 


3*70 






371 




001450 


372 


001450 


177 


373 


001451 


012 


374 


001452 


000 


375 






376 






377 






378 




001453 


379 


001453 


014 


380 


001454 


007 


381 


001455 


012 


382 






383 







TERMS*. 




TERMINATOR TABLE FOR ' EVAL ' AVD • GETVAR • 


'.BYTE 


040 I 


SPACE * (ASCII CODES) CISTERNAL COOES3 


.BYTE 


053 J 


♦ 1 


.BYTE 


055 | 


* 2 


.BYTE 


057 J 


/ 3 


.BYTF 


052 1 


* 4 


.BYTE 


136 1 


UP ARR 5 


.BYTE 


050 I 


( 6 L"PARS 


.BYTE 


133 1 


C 7 


.BYTE 


074 1 


< 10 


.BYTE 


051 1 


) 11 H*PARS 


.BYTE 


135 1 


J 12 


.BYTE 


076 J 


> 13 


.BYTE 


054 1 


t 14 


'.BYTE 


073 1 


} 15 


.BYTE 


015 1 


C'.Rg 16 


.BYTE 


075 1 


a 17 TO END GETARG FROM 'SET' 


.BYTE 


000 




ALIST», 




»ASK#TYPE# LIST Q? CONTROLS (INTERNAL CODES) 


.BYTE 


045 1 


% 


.BYTE 
.BYTE 


042 1 


H 


041 J 


1 


.BYTE 


043 I 





.BYTE 


044 1 


1$ 


.BYTE 


200 1 


SPACE 


TLTST*. 




(TERMINATORS (INTERNAL CODES} 


'.BYTE 


214 


1 1 


.BYTE 


215 


n 


'.BYTE 


216 


(CARRIAGE RETURN 


.BYTE 


000 


(END LIST 


SPECIAL 


■• 


IFOR INPUT DATA 


;byte 


175 


IALTMODE 


.BYTE 


200 


(SPACfc; 


.BYTE 


217 


19 


ECHOLS? 


■• 


1 TERMINATORS (ASCII) 


.BYTE 


177 


|RUB»OUT (RtO.) 


.BYTE 


012 


(LINE FEED (L.F,) 


'.BYTE 


000 


|END LIST 


LIST6»', 




MMOniFY* 


.BYTE 


014 


pCONTROL»FOR« 


.BYTE 


007 


fCONTROLwBELL 


.BYTE 


012 


ILINE FEED 


>C0NTINUED 





.MAIN, 


| 'Yit. 


620 19 


POCGT.0 


1 




385 






396 




001456 


387 


001 456 


216 


138 






389 






390 






391 


001457 


3^7 


392 


001460 


^^0 


393 




001461 


394 






395 




001601 


396 


001601 


000 


397 






398 


001602 


107654 


399 


001604 


003526 


400 


001606 


176172 


4^3 


001610 


000001 


492 


001612 


176166 


403 






404 


001616 


176162 


405 


001620 


176160 


406 


001622 


1761S6 


407 






4(98 


001624 


J76154 


4*9 


001626 


004012 


410 




001631 


411 


001630 


000120 


412 


001632 


177560 


413 


001634 


177564 


4i4 


001636 


176142 


41S 


001640 


000000 


416 


001642 


011450 


417 


001644 


011330 


418 


001646 


011450 


419 


001630 


, 011330 


430 


001652 


017500 


421 







«MAR»73 13101 PAGE 10 



176164 



LIST3*. 

.BYTF ?16 f RETURN 

IVAHIABLF STORAGE AREA I «#*### 



.BY^E wl 
.BYTE 000 
COMB!jr», 

JCOMMAND/INPTJT BUFFER 
,■',+80, 



CCFLGI 


.BYTE 


.EVEN 




LSPRi 


107654 


PCFl 


FLTZER»2 


THISLNl 


0«, 


DEBGi 


1 


FLARGl 


0*t r® m * 


BEl 


«■; 


HORDi 


0», 


LORDf 


LlNENOl 


0*', 


FlSWg 


04012 


SWITCH* 


.♦1 


LINCNTi 


80, 


INDEV! 


TK 8 


OUTDEVf 


TP5 


KINl 


0», 


WHOOPS 1 


000 


AXJNi 


BUFBEG+80, 


BUFR| 


BUfBEG 


STARTYI 


BUFBEG+80, 


TOPI 


BUFBEG 


BOTTOMl 


17500 



(START SAYE AREA) 



tSEARCH CHARACTER*** 
|END OF LIST 



»CnNTROt,*C SEEW1 

fRANpOH NUMBER LOW PART, 

fPROGRAM COUNTER FOR FOCAL 

ILINE POINTER FROM »FJNDLN» 

lCON«OFF, ENABLE) 0,0 « TRACE, 

fRESULT STORAGE 

I FLOATING ACCUMULATOR 

IF. A. 

fHlGH ORDER PART 

fLOfe ORDER PART 

I 

? LINE NUMBER HEAD BY GETLN 

fOUTPUT FORMAT %8,04, 

l»NAGSW" ETC, 

fWIDTH OF TTY LINE 

t POINTER TO IN, DEV STATUS 

|POItfTER TO OUT, DEV STATUS, a (END SAVE AREft) 

1CINTR DONE, TTY CHARACTER) 

»POWER FAIL/AUTO«RESTART SWITCH 

fSTQRAGE INDEX POINTER {STOPS 1ST *ERASEV"1) 

fNEXT LOCATION IN BUFFER m LAST LOCATION' USED, 

IBEGINNING OF BUFFER AREA 

IBEGINNING OF TEXT BUFFER AREA, 

fEND OF ALL CORE (REALLY A CONSTANT) 

tCONTINUED 
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423 












474 


031654 


176122 






C.VKSi * t *2 


425 


001656 


000000 






000 


426 


(301660 


035103 


047506 


040503 


.ASCII "CJFOC 




001666 


026314 


030461 


046054 






001 674 


047506 


040503 


040455 




427 


001702 


216 






.BYTE 216 


478 




001704 






.EVEN 


429 












410 










|*KILL* 


411 












412 










|STOP ALL I/O 


413 












414 


001704 


000005 






STOP I RESET 



llEXT DATA POT^TFR 
I LINK ZKRO. 



.MAI 
FOCGT 
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416 

437 
418 
419 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 



0017*6 
001712 



001734 
001736 
001740 
001742 
001744 
001750 



001752 
001760 
001766 
001772 
001776 
002002 
002004 
002010 
003014 
002016 
002022 
002026 
002030 



0127R6 
1^4623 



001714 016667 

001722 010566 

001726 011605 

001730 016516 



106216 
100167 
103404 
106116 
162716 
013607 



012767 
012767 
011767 
104642 
042716 
112602 
004767 
104642 
104524 
016701 
016101 
104626 
104642 



01011 



000002 
000002 

J77776 



176354 



103414 



177560 
177564 
177644 
037616 
177740 

005512 
040440 

177563 
000002 

005015 



fSTACK OVERFLOW HANDLER 

STACKOl MOV #BEGIN,SP | RESET STACK IMMEDIATELY! 

FRPOR+201+9.+9, iTHEV PRODUCE DIAGNOSTIC 

lSTACKO+2 IS PATCHED IF FUNCTION LIST IS CHAVGED, 



iTRAP HANDLER 



| "PRINT" 


0,1*177 




jTRAP 


200,2,376 


f "ERROR n 


201,2,377 


fUSE THIS FOR 


PRODUCTION! 


TRAPHI MOV 


2CSP)# 


STATUS 


MOV 


R5, 


2CSP3 


MOV 


0SP, 


R5 


MOV 


*2(R5), 


MP 


»OR THE FOLLOWING FOR DEBUGGING! 


jTRAPHi MOV 


2CSP3, 


*2fSP) 


1 MOV 


R5, 


2CSP) 


1 MOV 


SSP, 


R5 


f MOV 


*2fR5), 


9SP 


| MOV 


«2tSP), 


STATUS 


fSps 






»«CAlib» 






t«OLD R5* 






|R5»OLD PC 






ASPB 




• SP 


BPL 


PRINTA 




BCS 


ERR2 




ROLB 


PSP 




SUB 


»JMS, 


(asp 


MOV 


PCSP)*, 


PC 



igRROR DIAGNOSTIC GENERATOR 



177652 ERR2» 
177646 



MOV 
MOV 

MOV 

PRINT2, 

BIC 

MOVB 

JSR 

PRINT2, 

PRINT* 

MOV 

MOV 

PRNTLN 

PRINT2, 



*TKS, 
*TPS, 

*PCt 

37616 

#«40, 

(SP)+, 

PC, 

" A 

'T 

PCF# 

2 (AC), 

CRLF 



THDBV 

OUTDEV 

KIM 

• Sp 
PTR 
PRNT2 



AC 
AC 



jRESTORE STATUS 
tSAVE R§ 
IGET PC 
ICOPY CALL 

fKEEP THE STATUS-QUO FOR KIVF INSTRUCTIONS 1 
fSAVE R5 OVTO STACK OVER STATUS BITS, 
fPICKUP THE RETURN ADDRESS, 
|GET THE CALL ITSELF OMTO THE STACK, 
JRESTORE STATUS, T'BIT, ETC, 



^EXAMINE LOW ORDER BIT OF CALL 

IGO PRINT ASCII CODES, 

fUSE ODDS A3 ERRORS 

I RESTORE WORD ADDRESS 

ICOMPUTE ADDRESS OF THE POINTER, 

I GOTO THE PROCESS, 



>RE8ET DEVICE POINTERS 

I RESET KRD DATA/FLAG 

JPRINTS AS "CR'LF"*"?" 

fCLEAR THE HIGH ORDER BITS 

tSAVE CODE NUMBER 

IAND PRINT IT, 
t "AT « 

fWHAT TYPE LINE ARE WE POINTING Tv? 
IRETRIFVE THAT LINE NUMBER, 
IPRIMT IT OUT, 
jGO BACK TO COMMAND/INPUT MODE, 



.MAIN. 


MAC*!!. 


620 19* 


MAR«73 
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FOCGT.002 
















490 


















491 










1 "START 


n 






492 


















493 


















494 


002014 


016706 


177650 




STARTXt 


HOV 


5TACKO+2,SP t 


495 


002040 


012767 


003526 


177536 




MOV 


IPC1+2, 


PCF f 


496 


002046 


012767 


177400 


177534 




MOV 


t-400, 


DERG i 


497 


002054 


005067 


177360 






CLP 


WHOOPS 




498 


002060 


005067 


175712 






CLP 


STATUS 




499 


002064 


052717 


000101 


177560 




BIS 


«101, 


MTKS 1 


500 


002072 


026727 


177534 


177550 




rMp 


IVDEV, 


#PRS f 


5<n 


002100 


001401 








BEQ 


• ♦« 




502 


002102 


104452 








PRTNT+ 


!# 




503 


002104 


012705 


001461 






MOV 


•COMBUF 


,R5 | 


504 


002110 


010567 


177526 






MOV 


R5, 


AXIN | 


505 


002114 


104606 






IGWORI 


READC 






506 


002116 


120427 


000012 






CMPB 


CHAR, 


#012 J 


507 


002122 


001774 








BEQ 


IGNOR 




508 


002124 


104616 








PACKC 






509 


002126 


026727 


177510 


001600 




CMP 


AXTNi 


•COMBUF*8«,»l f 


510 


002134 


002022 








BGF 


bufful 




511 


002136 


120427 


000216 






CMPB 


CHAR* 


ICR t 


512 


002142 


001364 








RNE 


IGMOR 




513 


002144 


010503 








MOV 


RS, 


AXOUT | 


514 


002146 


104614 






GONEl 


GETC 






515 


002150 


104634 








SPNOR 






516 


002152 


104654 








SKPNON 






517 


002154 


002204 










INPUTM 




518 


002156 


004767 


001272 






,JSR 


PC, 


PROC > 


519 


002162 


016703 


1774U 






MOV 


PCF, 


AXOUT | 


520 


002166 


062303 








ADD 


(AXOUT)+,AXOUT t 


521 


002170 


001721 








BEQ 




SIARTX » 


522 


002172 


010367 


177406 






MOV 


AXOUT, 


PCF f 


523 


002176 


022323 








CMP 


CAXOUT)*,(AXOUT)* , 


524 


002200 


000762 








BR GONE 


t 


525 


















526 


002202 


104625 






BUFFUll 


ERROR+201+10,+10, f 



INITIALIZE THE STACK POINTER 

INITIALIZE PC FOR EOCAL 

ENABLE TRACE BUT TURN TX OFF 

UPDATE POWER FAIL SWITCH 

ALLOW INTERRUPTS 

ENABLE TELETYPE INTERRUPTS Awn SET READER KUn 

DON IT ACKNOWLEDGE FOR H,S,R, 

PRINT THE H READY H CODE, 

INIT THE COMMANn RUFFER PROTECTION 

FOR PACKING AND RUBOUT LIMIT, 

WAIT FOR KEYBOARD INPUT, 

CHECK FOR TERMINATORS 

IGNORE LINEFEED 

PACK THE COMMAND STRING 

AT END? 

YES J 

TEST FOP C,R t 

NO, REPEAT, 

SETUP FOR READING THE COMMAND/INPUT STRING 

GET A CHARACTER 

IGNORE SPACES BEFORE LINE NUMBERS, 

BE SURE THAT IT IS A NUMBER 

NOT A TERMINATOW, BEFORE STORING, 

PROCESS IMMEDIATE COMMAND 

COMPUTE ADDRESS OF NEXT 

LINE IN SEQUENCE, 

END FORMAT»RETURN TO C/I MODE, 

SAVE NEXT LINE ADDR, 

PREPARE TO INTERPRET, 

GO EXECUTE IT, 

ROOM ONLY FOR IMMEDIATE COMMANDS, 



*IV.J 
:gt,0 


i -Yii. 


620 19. 


•MAR*73 


5?8 








5?9 


002204 


011767 


177400 


510 


002210 


10*622 




«m 


002212 


1{*004£ 




512 


002214 


104634 




533 


002216 


(HM767 


001404 


534 


002222 


00»401 




535 


002224 


H2i04 




516 


002226 


104616 




517 


002230 


12?7«4 


00'?216 


518 


002234 


001373 




519 


002216 


005200 




540 


002240 


042700 


000001 


541 


002244 


010067 


177372 


542 


002250 


020067 


177372 


543 


002254 


103401 




544 


002256 


104636 




545 


002260 


000004 




546 








547 








548 








549 








550 








551 








552 


002262 


010201 




553 


002264 


061101 




554 


002266 


166701 


177352 


555 


002272 


010177 


177346 


556 


002276 


062701 


000002 


557 


0021*2 


160112 




558 


002304 


016767 


177332 


559 


002312 


000650 




560 








561 


002314 


104603 
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INPUTNl 


MOV 
GETLW 


PPC, 


DEBG 




BPL 


LINEBR 






SPNOR 








JSP, 


PC, 


STL1W 




BR 




SRFTN 




MOVB 


CAXGUT) 


+,CHAR 


SRIITNI 


PACKC 








CMPB 


#CR, 


CHAR 




BNE 




SRETM»2 




TNC 


TEMP 






B1C 


• I. 


TEMP 




MOV 


TEMP, 


AXIN 




CMP 


TEMP, 


STARTV 




BLO 


• + 4 






ERASEV 








DELETE 







fAT THIS JUNCTURE 

f(PTR)B>LASTLN 

I (AXIN)»CBUrR)*MF.W f LENGTH 

lCBUFR)s>THI5LN 



177312 



MOV 


PTR, 


AC 


ADD 


?AC» 


AC 


SUB 


BUFR, 


AC 


MOV 


AC, 


nBUfR 


ADD 


»2, 


AC 


SUB 


AC* 


9PTR 


MOV 


hXlH, 


BUFR 


BR 


STARTX 





IDTSABLE ANO TURM OFF THE TRACE, 

|REAH THF DATA AS A LINE NUMBER 

ISTNGLF MWR NUMBER? 

J IGNORE SPACES AFTER LTNE NUMBEP, 

(PREPARE POINTER TO INSERT NE» TEXT A!*n 

(SKIP TO THE TEST FOR ENO-OF- MVf, 

fUWPACK A CHARACTER W/O TRACE, 

(SAVE THF BYTE C ' TEMP • STILL CONTAINS fAXXMJ) 

(TEST FOP ENH OK LINE, 

(GO BACK FOR ANOTHER, 

fROUMD UP TO 

lEVfiW ADDRESS, 

ft 'TEMP' IS LEFT BY "PACKC") 

(ANY INTERFERENCE WITH VARIABLE AREA? 

I (USES »AC) 

(REMOVE THE OLD LIME, IF ANY, («0 BREAKS!) 



UNERRl ERROft*201+l,+l a 



tCOMPUTE THE NEXT 

»LINE ADDRESS AS «C»2" THEM 

(FORM »C»NEW*2 n , 

(SAVE NEK FORWARD LINKAGE, 

|»C*NEW" 

(UPDATE OLD LINKAGE "NEW-A" 

fPOINT TO END OF LAST INSERTION, 

I RETURN TO COMMAND/INPUT MODE, 

(ILLEGAL LINE NUMBER, 



.MAIM, 


MACYli, 


620 19* 


MAR- 7 3 


FOCGT,002 






563 








564 








565 








566 








567 








568 


002316 


106116 




569 


002320 


1104*6 


Pfleu'CU 


570 


002324 


11)604 




571 


002326 


000J16 




572 


002330 


00<U67 


000456 


573 








574 








575 








576 








577 








578 








579 








580 








581 








582 








583 








584 








585 


002334 


004567 


000566 


586 


002340 


100412 




587 


002342 


005725 




588 


002344 


104654 


002366 


589 


002350 


122704 


000056 


590 


002354 


001404 




591 


002356 


005725 




592 


002360 


122704 


000106 


593 


002364 


001015 




594 


002366 


011505 




595 


002370 


000205 




596 








597 








598 








599 








600 








6«1 








602 


002372 


120427 


000060 


603 


002376 


002410 




604 


002400 


120427 


000072 


605 


002404 


000521 




606 








607 








608 








609 








610 








611 








612 








613 








614 


002406 


012501 




615 


002410 


120411 




616 


0024J2 


001404 
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p"PHINT+tx« 

pURE LOW BITS A5 ASCII CODES, 



PRINTAl POLB 


QSP 




MOVB 


CHAR, 


1 (8P) 


MOVB 


8SP, 


CHAR 


SWAB 


0SP 




JMP 


OUTZ 




fTESTC" 







PCALLING SEQUENCEl 

fTFSTC pCALL WITH (CHAR)«TLST DATA 

ITADDR p "TERMINATOR 

pNADDR p "NUMBER 

pFPADDR | "FUNCTION 

p pRETURNS IF "ALPHA 



TESTXJ 



JSP 


R5, 


SPNORX 


BMI 




TEX 


TST 




fR5) + 


SKPNON, 


TEX 




CMPB 


»056, 


CHAR 


BED 


TEX 




TST 




(R5)» 


CMPB 


MF, 


CHAR 


BNE 




SOX 


MOV 


iR5# 


R§ 


RTS 




R5 



TEX I 



p "SKPNON, YESpADDR" 

fSKIP IF MOT A NUMBER 

SKPNOXI CMPB CHAR* 

BIT SOX 

CMPB CHAR, 

BR GROVZ 



• 060 
#072 



.EOT 



tRESTORE CODES, 

pLEAVE OLD "CHAR" IN THE STACK FOR "OUTX-2" 

fCOLOf NEW) 

PCNEW, OLD) 

pPRINT IT, 



pTEST FOR SPACE AND IGNORE, 

pMUST BE TERMINATOR 

p PREPARE SECOND RETURN 

flF NUMBER, TAKE EXIT 

»OP A POINT? 

pXES, USE "NADDR," 

p PREPARE FOR 3RD RETURN 

PTEST FOR FUNCTION DESIGNATION 

pRETURN, MUST BE "ALPHA 

pGO BACK VIA POINTER 

PIN ARGUMENT LIST, 



PTEST 

PTOO SMALL 

■TEST 9 

p NUMBER , USE YESnADDRESS 



p«50RTJ« 

pCHARACTER TEST AND BRANCH ROUTINES 

pSORTJ, LISTCHAR, LISTADDR, RETURN#IF»NnT«THERE 



SORTBI MOV 
CMPB 



CR5}+, 
CHAR, 



AC 
BAC 



fPICKUP THE LIST POINTER AND 
pTEST WITH LIST CONTENTS, 



BBS 



jnflitn rugNUi 



.MA 
FOCGT 



GT,0l 



Yll',620 l9»v.fcR«73 13101 



61? 
618 
619 
620 
621 
622 
6?3 
624 

625 

626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
64^ 
641 



002414 105721 

002416 001374 

00242? 005725 

0452422 000205 



002424 

002430 
002432 
002434 
002436 



166501 

006301 

061501 

f !105 

000205 



002440 012501 

002442 121104 

002444 0017*50 

002446 105721 

002450 001374 

0024S2 000762 



17777ft 



PAGE 15»1 


TSTB 
BNE 






(AC)* 
SORTB+2 


SOXI 


TST 
RT5 




R5 


fR5) + 


SOUND! 


SUB 


•2(R5)# 


AC 




k&l 


AC 








ADD 


9R5, 




AC 




MOV 


3AC, 




R5 




RT5 






R5 



itest for end of list or 

frepeat ik mot at end 

i return ie no watch fount) (skip over exit) 

i go rack via r5, 

J 

j COMPUTE THE INDEX FIRST THEM 

f MAKE EVEN AMD 

I GET TABLE OF ADDRESSES AND FINALLY 

fSFTUP ADDRESS FOR PC, 

iGO HACK VIA NEw R5, 



f'SORTC" 

»sortc # listchar#yesaddr#return«if*»not*there 

SORTDI 



MOV 


(R5)+, 


AC 


|GET LIST ADDRESS 


CNPB 


SAC, 


CHAR 


rCOMPARE WITH CONTENTS 


BEG 




TEX 


fFOUND IT, 


TSTB 




(AO + 


ITEST NEXT FOR EN0 


BNE 




SORTD+2 


f REPEAT 


BR 




SOX 


IEXIT IF NOT THERE 
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643 








644 








645 








646 








647 








648 


002444 


105067 


177151 


649 








650 


802460 


005001 




651 


002462 


104634 




652 


002464 


100416 




653 


002466 


122704 


000101 


654 


002472 


001413 




655 


002474 


104654 


002562 


656 


002500 


010546 




657 


002502 


004767 


002166 


658 


002506 


007001 




659 


002510 


012605 




660 


002512 


062767 


000010 


661 


002520 


007071 




662 


002522 


01*167 


177076 


663 


^0^526 


001412 




664 


002530 


100671 




66b 


002532 


105701 




666 


002534 


001411 




667 


002536 


105767 


177063 


668 


002542 


001664 




669 


002544 


152767 


000200 


670 


002552 


000205 




671 








672 


002554 


105267 


177051 


673 


002560 


000205 




674 








675 








676 


002562 


007075 




677 


002564 


000752 





177076 



177057 



»"GETLN 


it 






fLTNF NUMBER' FORMATION 


ROUTINE 


GETLNXt 


CLPB 




SWITCH 




CLP 




AC 




SPNOR 








BMI 


GALLl 






CMPB 


«'A, 


CHAP 




REQ 


GALLl 






SKPNON 


, GTESTN 






MOV 


R5, 


• CSP) 




JSP 


PC 


GETARG 




FPGET+ 


IPTR 






MOV 


CSP)+, 


R5 


GTFSTWl 


ADD 
FPINT 


#8,, 


BE 


GAL Ml 


MOV 


AC, 


LIWEWO 




BEQ 




GALL 




BMI 


UNERR 






TSTB 




AC 




BEO 




GGROUP 




TSTB 




TJNEiNO+1 




BEO 


LINERR 






BISB 


»QNE, 


SWITCH 




PTS 




R5 


GALLl 


INfB 




SWITCH 


GGROUPl 


PTS 




R5 



GTESTN I FREAD 



GTESTW 



?SET m TERMINATE UPOk ALPHA 

iCODFa CEtfTKY POINT #1) 

1FOK "ALL" USE iiERO, 

lIGNORF LEADING SPACES 

fTERMINATORe0s"ALL" 

ITEST FOR "ALL 

I GO SET SWITCH AND RETURN flK 

fSOUNDS like a variable name? 

fSAVF RETURN 

fREAD A NAMED LIME 

fPICKUP THE VALUE, 

JRESTORE RETURN 

fMOVF "POINT'RIGHT b BITS (ENTRY POINT #2) 

JFIX 

ISAVE THE ANSWER IN "AC" AND "MMENO" 

fZERO, CALL IT THE SAME AS "ALL" 

fPREVENT USE OF BIT 15 

ITEST THE STEP"NO, 

fMUST BE A GROUP, 

J TEST THE GROUP«*NO 

JMUST BE NONiZERO 

lINDICATF A SINGLE LINE 

> RETURN? 

f 

fSET BIT #0 FOR "ALL", 

I RETURN TO PROCESS WITH STATUS BITS SETUP, 

ILINE NOS, >99,99 ARE NOT ERROR CHECKED, 

t 

pSET TO READ A NUMBER INTERNALLY, 

pGO PROCESS THE RESULT 



.MAJW, 
FOCGT 



:< 
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679 

680 

681 

682 

683 

684 

68b 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

703 

706 

707 

708 

709 

710 

711 

712 

713 



002566 
002572 
002574 
002600 
002606 
002610 
002612 
002614 
002616 
002620 
002622 
002624 



012703 
010302 
010367 
026367 
101267 
001404 
010302 
062303 
001663 
000765 
022323 
000675 



001654 

177006 
000002 



I»FINDI,N« 

I THIS ROUTINF. LOOKS UP THE LINE WHOSE MUMfiER 

I MATCHES THE CONTENTS OF "LlNEMO" 

ICALLING SEQUENCE! FINDLN, MOTAODR#RKTURn-1F-FOUND 

iRFSULTS IF FOUMDl"THISLN»»FOUND LIME OR NEXT LARGFRI 
|»PTR" IS THE LAST LINE, I.K'.PRECEEDIMG OR SAME LINE. 
»«AX0UT«IS SET FOR USE BY "GETC. 

iRFSULTS IF*NOT»FOUND| H THf 5LN»»»ADDRESS OF NEXT IN LINE 
I »AXOUT"sNEXT OR ZERO 

I "PTR»«PRIOR LIME 



FlNDXt MOV 
MOV 

FINDNI MOV 
177016 CMP 

BHI 
BEG 
MOV 
ADD 
BEO 
BR 

FINDOI CMP 
BR 



ICFRS, AXOUT 
AXOUT, PTR 
AXOUT, THIfiLN 
2CAXOUT),LINENO 

TEX 
FINDO 

AXOUT, PTR 
(AXOUT) +, AXOUT 

TEX 

FINDN 
(AXOUT)*, (AXOUT)+ 

SOX 



fLOAO STARTING ADDRESS OF TEXT 

lINIT FOLLOWING POINTER 

I SAVE CURRENT POINTER 

I TEST FOR MATCH 

IPAST ITUNOT FOUND 

fRIGHT ONi 

ICOPY PRIOR POINTER, 

jGET NEW POINTER 

lEND OF LIST*NOT FOUND 

I TRY THE NEXT ONE, 

fMAKE IT POINT TO TEXT 

| RETURN TO SEQUENCE 



IDATA STRUCTURE OF LINESf 



!WORD #1 t NEXT»,»2 iLAST IS 0«.«2 

pWORD #2 I LINE# pGROUP, STEP 

IWORDS #3«NI 7»BIT ASCII AND SPECIAL INTERNAL TEXT CODES 
ILAST BYTE | 216 iCARRIAGE RETURN 
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71b 






716 






717 






718 






719 






720 






721 






722 


002626 


112504 


723 


002630 


104604 


724 


002632 


1125P4 


725 


002634 


000462 


726 






727 






728 






729 






730 






731 






732 






733 


002636 


120427 


714 


002642 


101251 


755 


002644 


120427 


716 


002650 


103646 


737 


002652 


000662 


718 






739 






740 






741 






742 






743 


002654 


012704 


744 


002660 


020215 


745 


002662 


002656 


746 


002664 


161502 


747 


002666 


005204 


748 


002670 


000773 


749 






750 






751 






752 






753 






754 


002672 


126763 


755 


002700 


001232 


756 


002702 


005703 


757 


002704 


001630 


758 


002706 


000644 


759 






760 







000210 



000206 



000060 



|«PRINT2,AFGARG« 

PRIN2AI MOVB CR5)+, CHAR 
PRINTC 

MOVB tR53+# CHAR 

PR OUT 



f«SKPLPR,NOT»AnDRfl 

IBRANCH TF LF.FT»PARENS, NOT FOUND, 

#206 



XTSTLPI CMPB 


CHAR. 


BHI 


TEX 


CMPB 


CHAR, 


GROVZI BLO 


TEX 


BR 


SOX 



|»niGT5T,FlELD M 



DIGTSAl 


MOV 


160, 


CHAR 




CMP 


PTR# 


«R5 




BLT 




SOX 




SUB 


GR5, 


PTR 




INC 




CHAR 




BR 




DIGTSA*4 



I "GROOVY, NOT*ADDR« 



176727 000003 GROVX! 



CMPB 


&XNSWQ+S,)eAXOUT) 


BNE 


TEX 


TST 


AXOUT 


BEQ 


TEX 


BR 


SOX 



ICOPY FIRST TRAILING BYTE 
|ANU PRINT 

fCOPY SECOND TRAILING BYTF. 
IAND GO PRINT IT 



fTFST FOR (<[, 
fRIGHT TERMINATOR? • 
fOUT OF RANGE? 
>YES, USE »NOT*ADDR" 
JOK, SKIP ONWARDS, 



YES, USE ««OT-ADDR" , 



UNITIALIZE CHARACTER 
fTEST FOR POSSIBILITY 
>LEAVE IF NO MORE POSSIBLE 
IMAKE CHANGE AND 
fCOUNT 
I REPEAT 



fTEST FOR SAME GROUP 

>GO BRANCH OR 

I CHECK FOR END OF TEXT 

»TAK£ NOT-ADDR 

lJUST RETURN 



.MAIN, 


£ -yji, 


620 19. 


•MAR«73 


FOCGT,0\ 






762 








763 








764 








765 








766 








767 


002716". 


10.-612 




768 


002712 


045704 


177600 


769 


002716 


001774 




770 


002720 


022704 


000003 


771 


002724 


001462 




772 


002726 


104602 


001450 


773 


002734 


120427 


000141 


774 


002740 


002402 




775 


002742 


042704 


000040 


776 


002746 


104602 


001412 


777 


002754 


000403 




778 








779 


002756 


062701 


176566 


780 


002762 


110104 




781 


002764 


022705 


003566 


782 


002770 


001511 




783 


002772 


026727 


176614 


784 


003000 


001505 




785 


0030(12 


310446 




786 


003094 


100002 




787 


003006 


116404 


001612 


788 


003012 


152704 


000200 


789 


003016 


104610 




790 


003020 


122704 


000215 


791 


003024 


001006 




792 


003026 


112767 


000111 


793 


003034 


121604 




794 


003036 


103401 




795 


003040 


104412 




796 


003042 


026727 


176566 


797 


003050 


001005 




798 


003052 


105367 


176552 


799 


003056 


001002 




800 


003060 


104642 


005015 


801 


003064 


112604 




802 


003066 


000205 




803 








804 








805 








806 


003070 


104636 




807 


003072 


016706 


176612 


808 


003076 


104601 
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|«READC" AND "PRINTC" 
I I/O CONTROLS 
CHI fit 



003214 



002756 



177550 



CHINXi 



QUTWi 



OUT! 



OUTZt 



176574 



177564 OUTYf 



INCH 






BIC 


#*200# 


CHAR 


BEO 




CHIN 


CMP 


#3, 


CHRR 


BEO 


INIT2 




SQRTC, 


ECHOLST 


,RUBX2 


CMPB 


CHAR, #141 


BLT 


.♦6 




RIC 


#40, CHAR 


SORTC, 


TERMS, CHINX 


BR 




OUTW 


ADD 


#200*TERMS,AC 


MOVB 


AC, 


CHAR 


CMP 


#SCONL, 


R5 


BEG 


RUBX2 




CMP 


INDEV, 


#PRS 


BEQ 


RU8X2 




MOVB 


CHAR, 


*CSP) 


BPL 


OUTZ 




MOVB 


TERMS*200(CMAR) ,CHAR 


BISB 


#200, 


CHAR 


DUTCH 






CMPB 


#215, 


CHAR 


BNE 


DUTY 




MOVB 


#73,, 


LINCNT 


CMPB 


3SP, 


CHAR 


BLO 


OUTY 




PRINT+012 




CMP 


OUTDEV, 


#TP« 


BNE 


OUTX 




DECB 


MMCHt 




BNE 


OUTX 




PRINT2* 


CRLF 




MOVB 


CSP)*, 


CHAR 


RTS 


R5 





OUTXl 



EMIT2I ERASEV 
INIT2I MOV STACKO*2,SP 
ERROR+201+0,+0, 



JHEADC ■ INPUT 

iCLEAR HIGH ORDER BITS 

f IGNORE NULLS 

ICONTHOL^C? 

jYESsRFSTART 

fTEST FOR NO*ECHO 

|#IIF SMALL LETTER INPUT, 

!##« 

|###MAKE IT UPPER CASE, 

ICONV&RSION TEST, 

» GO ECHO 

1 

fFORM INTERNAL CODE 

fA^D SAVE TT 

» DON'T 

FECHO SEARCH CHARACTER FROM #MODIFY* t 

JDON'T 

»ECHO FOR H,S t R, 

fSAVE THIS FORM ON THE STACK, 

I IF SPECIAL TERM,, REGENERATE BY 

fCOMPUTlNG ASCII 

|SET BITS, 

fOUTPUT TO ANY DEVICE, 

I (CHANGED BY » DUTCH ') 

fJUST GO COUNT IT, 

UNITIALIZE THE LINE COUNT, 

!WAS THIS AN INTERNAL CR? 

I IF NOT, JUST GO COUNT, 

I ISSUE THAT EXTRA LINEFEED, 

? TEST FOR TTY OUTPUT, 

»IF NOT, DON'T EDITORIALISE, 

fCOUNT PRINT POSITIONS 

>SKIP IF NOT NEAR THE MARGINS 

| OUTPUT ONE OF EACH 

IRESTORE ORIGINAL DATA 

I RETURN FROM TRAP 



IERASE BUFFER ON INIT 

fRESET STACK FOR MANUAL RESTART 
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810 






All 






812 






813 






914 






81b 






816 


003100 


012702 


817 


003104 


010146 


818 


003106 


012746 


819 


003112 


007003 


830 


003114 


007076 


8*1 


003116 


022626 


822 


003120 


104440 


853 


003122 


000205 


834 






825 






826 






827 






828 






829 






8S0 






831 






832 


003124 


104614 


833 


003126 


122704 


834 


003132 


001774 


835 


003134 


000427 



002005 



177407 



000200 



PAGE 20 

|"PRNTLN" 

tPRlMT A LI«E NUMBER ROUTlMfc 

XPRNTLl MOV »2005, DTR 

MOV AC, »CSP1 

MOV #177407, «CSP) 

FPGET+FROM+STACK 

FPPINT 

CLOSF+STACK 

PRINT* • I 

PTS R5 



| n SPNOR H 

f IGNORE SPACES 

SPNXTI GETC 

SPNORXl CMPB «200#CHAR 

BEQ »»6 

BR RUBX2 



t5ET FORMAT TO %4,02 
lARGUrtENT TAKEN FROM "AC" 

J... 

ILOAD FLAC 
JPRIMT RESULT 

fREPAIR HOLE IS THE STACK, 
fPRINT TRAILING SPACE 
JRETURN 



fMOVE ON TO NEXT CHARACTER CODE, 

fCHECK FOR SPACE SYMBOL, 

ITRY AGAIN 

ILEAVE "CHAR" IN "STATUS" AND EXIT, 



.MAIM, MACY1J 


,620 19 


•MAR»73 


FOCq| 2 






837 






838 






839 






8 40 






841 






842 003136 


P"!670tf 


1 76500 


843 003142 


122704 


000177 


844 003146 


001414 




845 003150 


122704 


000100 


846 003154 


001415 




847 001156 


122704 


000137 


848 003162 


001405 




849 003U4 


110420 




850 003166 


026700 


176460 


85J 003172 


101006 




852 003174 


104625 




853 






854 003176 


011600 




855 003200 


020016 




856 003202 


001402 




857 003204 


005300 




858 003206 


104534 




859 003210 


010067 


176426 


860 003214 


110404 




861 003216 


000205 




862 






863 






864 






865 






866 






867 






868 






869 






870 






871 






872 003220 


105767 


176364 


873 003224 


001373 




874 003226 


105167 


176357 


875 003232 


112304 




876 003234 


122704 i 


000077 


877 003240 


001767 




878 003242 


005767 


176342 


879 003246 


001362 




880 003250 


000654 
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;"packc b 

fTFXT BUFFER CONTROLS 



PACKXl 


MOV 


AXIN, 


TEMP 




CMPB 


#177* 


CHAR 




BEQ 




RUBIT 




CMPB 


#100* 


CHAR 




BEQ 


RUBX 






CMPB 


#137, 


CHAR 




BEQ 


PBAR 






MOVB 


CHAR, 


CTEMP}+ 




CMP 


BOTTOM, 


TEMP 




BHI 


RUBX 






ERROR* 


201+10.+10, 


PBARl 


MQV 


*SP, 


TEMP 


RUBITJ 


CMP 


TEMP, 


?SP 




BEO 




RUBX 




DEC 




TEMP 




PRINT* 


«\ 




RUBXf 


MOV 


TEMP, 


AXIN 


RUBX2I 


MOVB 


CHAR, 


CHAR 




PTS 


R5 





I "GETC" 



I COPY IhfPUT TEXT POIMTER 

J TEST FOR RUBOUT 

|GO BACK UP ONE SPACF 

ITFST FOP AT SIGN 

lIGNOHE IT 

I LEFT ARROW 

I GO RESET, 

ISAVE CHARACTER CODE AMD MOVE POI-\TFR 
ITEST FOR E*D WINTER, 

ICONTINUF 
IC.F, INPUT! 
I 

IRESET INPUT POINTER, 

ITEST FOR MULL LIWECOLD R5 IS "PACKST'M 

UCSKORF R.O. CODE COMPLETELY 

IBACKUP ONE PLACE 

I AND ACKNOWLEDGE RECEIPT ♦ USE 

I SAVE POINTER * 

ISET CONDITION CODES BEFORE LEAVING 

IRETURN TO MAINLINE ROUTINES, 



I UNPACK A CHARACTER AND LEAVE IN STATUS ■ 



UTXI 



CETXi 



T5TB 

BNE 

COMB 

MOVB 

CMPB 

BEO 

TST 

BNE 

BR 



DEBG 
RUBX2 
DEBG*1 
CAXOUT)+,CHAR 



«'*# 



CHAR 

UTX 
DEBG 
RUBX2 
OUT 



ITEST FOR TRACE ENABLED 

IRETURN IF NOT ENABLED, 

fFLIP THE TRACE FLOP 

IPICK OUT NEXT BYTE 

fCHECK FOR TRACE FLIP-FLOP CODE 

IGO FLIP IT IF CODE FOUND PLUS KWABLFD 

ITEST FOP BOTH DEBG+DMP S *0, * 

INOT IN TRACF NOW, 

IGO PLAY-BACK THF BYTfc, 
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FOCGT.002 
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882 








883 








884 








885 








886 








887 








888 








889 








890 








891 


003252 


012324 




892 


003254 


020367 


176366 


893 


003260 


101774 




894 


003262 


160067 


176356 


895 


003266 


160067 


176350 


896 








897 


003272 


104624 


006034 


898 


003276 


112304 




899 


003300 


120427 


0002.16 


900 


003304 


001374 




901 


003306 


005203 




902 


003310 


042703 


000001 


903 


003314 


016704 


176266 


904 


003320 


061412 




905 


003322 


062712 


000002 


906 


003326 


010300 




907 


003330 


160400 




908 


003332 


012701 


001654 


909 


003336 


010102 




910 


003340 


001744 




911 


003342 


062101 




912 


003344 


020203 




913 


003346 


103404 




914 


003350 


020103 




915 


003352 


103371 




916 


003354 


060012 




917 


003356 


000767 




918 








919 


003360 


020103 




920 


003362 


103765 




921 


003364 


160012 




922 


003366 


000763 




923 








924 








92B 








926 








927 








928 








929 









l"nELETE" 

! A LINE AND 

(Garbage collect 10" ts uni'.-K. np to csta^tv)! 

I CBUFR) TS COKRFCTEni 

fCTEMP) TS AMOUNT OF COPE COLLECTED, 



FCOLOGYlMOV 


(AXOUT) 


♦ , (CHAR)+ 




tmp 


AXOUT, 


STAftTV 




BL05 




ECOLOGY 




SUB 


TEMP, 


RUFK 




SUB 


TF.Mp, 


AXTN 


XDELFTl 


FINDLN, 


PWRON 




XD3I 


MOVB 


CAXQU'm f CHAR 




CMPB 


CHAR, 


#CR 




RNF 




XD3 




INC 




AXOUT 




B1C 


U, 


AXOUT 




MOV 


THISLN, 


CHAR 




ADD 


PCHAR, 


fiPTR 




ADD 


#2* 


*PTR 




MOV 


AXOUT, 


TEMP 




SUE 


CHAR, 


TEMP 




WOV 


*CFKS, 


AC 


XDOXt 


MOV 


AC, 


PTR 




BEG 


ECOLOGY 






ADD 


CAC)*, 


AC 




CMP 


PTR, 


AXOUT 




BLO 




XDTHI5 




CKP 


AC, 


AXOUT 




BHIS 




XDOX 




ADD 


TEMP, 


(•PTR 




BR 




XDOX 


XDTHISI 


CMP 


AC, 


AXOUT 




BLO 




XDOX 




SUB 


TEMP, 


9PTR 




BR 




XDOX 



HEREwTHEREsCHANGE HERE 
A A 
P B 
A B «T 
B A *T 



STF'P 1-COLLFCT SPACF 
TEST FOR COMPLETION 
CONTINUE UNTIL FINISHED, 
UPDATE END OF TEXT POINTER, 

» • • 

*** r*o INTERRRUPTSJ 

SETUP LIME POINTERS FOR EXIT 

READ THROUGH THE LINE 

CARRIAGF RETURN MARKS END 

REPEAT UNTIL EfiO REACHED, 

ROUND OUT THE POINTER 

TO AN EVEN NUMBER, 

COPY POINTER TO THIS M«E, 

STEP KREATE NEW RELATIVE 

POINTER TO NEXT LINE IN LIST, 

COMPUTE DELTA POSITION 

AS A POSITIVE, EVEN NO, OF BYTES, 

BEGIN AT TOP TO GARBAGE CULECI, 

STEP 2*F0LL0W + UPDATE LINKS ("THIS") 

60 COLLECT ALL 

TEST FOR LAST OF KIND, 

TEST FOR ABOVE OR BELOW CHANGE ANO 

BRANCH TO FIXUP THIS ONE IF IT IS ABOVE 

TEST FOR NEXT-IS»BELOW AND 

BRANCH TO NEXT ONE IF ALSO BELOW 

ADD THE CHANGE AND 

GO LOOK AT NEXT ITEM. 

IS NEXT ONE ABOVE THE CHANGE ALSO? 
YES, CONTINUE, 

NO, CHANGE "LINE", 
GO TO NEXT LINE 



.MAIN, 
FOCGT.0 

931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
94b 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
96» 
961 
962 
963 
964 
965 
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>*IF* 



003370 
003372 



003374 
003376 
003400 
003402 
003404 
003410 
003412 
003414 
003420 
003422 
003424 
003426 
003432 
003434 



104614 
000410 



104634 
010446 
104660 
104646 
005767 
100412 
001405 
120427 
103763 
101014 
104614 
120427 
001373 
104614 



176210 



000214 



000214 



^CONDITIONAL TRANSFER PROCESS 

I THE FLAVORS OF *IF* 

lIF ffiXP)» # 0,* [3-WAJf] 

» *#0ltt« C2-WAY OR, .,1 

f 9, IS C2»WAY OR MEXT LINK] 

f ■!••• ci»way op,;,i 

t • C 1 •» ^* A Y OR NEXT Lt*F3 



LOST* 


GETC 






BR 


L0SE2 


IFl 


5PN0R 






MOV 


CHARf 




EVAL.X 






PARTST 






TST 


HORD 




BMI 


GOTO 




BEQ 


L0SE1 


L0SE2I 


CMPB 


CHAR, 




BL5 


LOST 


LOSE0I 


BHI 
GETC 


PROC 


LOSElf 


CMPB 


CHAR* 




BNE 


LOSE0 




GETC 





tSP) 



#234 



1214 



jGOTO LPAR (ENTRY POT*"T) 

fSAVE LP AH FOR "PARTST", 

t EVALUATE THE EXPRESSION WITH PARENTHESES 

ICHECK CLOSING PARENS AND DO 'GETC, 

ITEST SIGN 

I READ* FOR * 

ISKIP LINE NUMBER-IS) 

I TEST FOR END OF LIME NO 

fNOT YET 

fSEMI, OR C,R, COR si) 

fCOMMA #1 

tLOOK FOR COMMA 

fGO TEST OTHERS 

I SKIP THE COMMA 



fFALL THROUGH INTO #GOTO# 



'.MAIM. MAryi i,620 19-MAR.73 13101 PACK 24 

rornT.002 



967 


















968 








i#Gn«GOTO»roMMeNT»coNTiN»E#REi"Rw*XEC 


!TE* 


9*9 


















970 








»PRIMAR¥ CONTROL AWL) TRANSFER 




971 


















972 


003436 


104622 




GOTQJ 


GETLM 








973 


003440 


104624 


003624 




FINDT.N, 


SERR 






974 


001444 


0167fi7 


176136 


176132 PSCAMi 


MOV 


THISLN, 


PCF 




975 


003452 


104614 




PROCESSIGETC 








976 


003454 


120427 


000216 


PROCf 


CMPB 


CHAR, 


*CP 




977 


003460 


001421 






REG 




PCI 




978 


003462 


110401 






MQVfi 


CHAR. 


AC 




979 


003464 


100772 






RMI 


PROCESS 






980 


003466 


122704 


000101 




CMPB 


#'A» 


CHAH 




9*1 


003472 


003003 






BGT 


ERRORC 






9*2 


003474 


122704 


000130 




CMPB 


• 'X, 


CHAR 




9*3 


003500 


002001 






BGE 


PC2 






9*4 


003502 


104611 




ERRORCl 


ERROR+201+4,+4, 






9*b 


003504 


104614 




PC2J 


GETC 








986 


003506 


100376 






PPL 


PC 2 






9*7 


003510 


006301 






ASL 


AC 






988 


003512 


000171 


001046 




JMP BCOMLST-202CAC) 




9*9 


















990 


003516 


012767 


003526 


176060 RETURNl 


MOV 


IPC1+2, 


PCF 




991 


003524 


000207 




PCI J 


POPJ 








992 


003526 


174250 






»,*2 








993 


003530 


000000 




FLTZERl 


00000 








994 


003532 


000000 






00000 








995 


















996 


003534 


005726 




TPRI 


TST 


CSP) + 






997 


003536 


000749 






BR 




PROCESS 




998 


















999 


003540 


005726 




TPRll 


TST 




fSP) + 




1000 


003542 


000207 






POPJ 








1001 


















1002 


003544 


004767 


000790 


XECUTEl 


JSR 


PC, 


EVAL 




1003 


003550 


000741 






BR 


PROC 







HEAD THE ADDRESS A.nH 

ATTACH TO NK.il LIME, 

SET 'IE* LINE POTHER 

READ A CHARACTER T N LINE 

TEST FOP ENH OF LTNiF 

GO*ON TO PROCESS NEXT M^E 

COPY DATA 

IC.MOHF. TERMINATORS 

CHECK DATA 

TOO LOW, 

TOO HIGH? 

OK 

ILLEGAL COMMAND CODE, 

IGNORE REST OF THE CO«MAMP«S 

CHARACTERS HMTILL TERMINATOR REACHED, 

MAKE RYTE COUNT INTO WORD COUNT, 

BRANCH TO THE COMMAND PROCESS, 

RETURN FROM SUBROUTINE (?) 

EXIT FROM LINE 

DUMMY TERMINATOR 

DUMMY LINE NUMBER ZERO 

AND DUMMY VALUE OF FLOATING ZERO, 

DUMP RETURN FOR 'TASK' UPON SEMTCOLONS, 
GO END REST OF COMMAND LINE, 

DUMP RETURN UPON C,R, 
GO EXIT FROM A LINE, 

RUN THROUGH SOME FUNCTION CALLS, 
THEN GO GET NEXT COMMAND, 



.MAI*, 
FOCGT 



:< 
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1 0<*5 
1006 
10*7 
1008 
1009 
1 1 . 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
10?3 
1024 
1025 
1026 
1027 
1028 
1029 

1010 

1031 
1032 
1033 
1034 
1035 
1036 
1037 
1018 
1039 



0035S2 
003554 
003560 
003564 
003566 
003572 
003574 
003576 
003604 
003606 

003610 
003612 
003620 
033622 



003626 
003632 
003634 
003636 

003640 
003644 



104622 
104674 
034767 
104606 
1 10467 
112304 
104604 
104600 
104616 
000771 

104606 
504600 
104616 
000772 



003624 104613 



016705 
005025 
010125 
001772 
010567 
000207 



08*624 

000042 

175665 

001456 0014&6 

001453 001400 



t*MODlFY# 

fSFARCH FOR CHARACTER IN TFXT 

vonim getlm 

FINDLN, SERB 

JSR PC, STI.1M 
SCONTI RKADC 

SCONLJ MOVB CHAR, LIST3+1 
SCHARI MOVB (AXOUT)+,CHAR 

PKINTC 

SORTJ, MST3,LISTG0 

PACKC 

BR SCHAR 

SFTNDI READC 

SORTJ, LIST6,SRNLST 
SFOUNDt PACKC 

BR SFIND 

SERRt ERROR+201+5,+5, 



176012 



175776 



?START*UPwA*LINE SUBROUTINE 



STLIWI 



MOV 


BUFR, 


R5 


CLR 




CR5)* 


MOV 


AC, 


fRS)* 


BEQ 


SERR 




MOV 


R5, 


AXIN 


RTS 


PC 





JpFAD COMMAND ARGUMENT 
JLOOKUP THE INPUT DATA 

fREAD SEARCH CHARACTER SILENTLY, 

»SAVF SEARCH CHARACTER 

fUMPACK AnJD PRINTOUT 

I EXTRA OUTPUT FOR C,R, 

I TEST FOR C,R, OR SEARCH CHARACTER 

iSAVE OLn CHARACTER, 

T REPEAT 

I 

lARSORB AMD ANALYSE 

I THE INPUT TFXT 

fPACK HE" CHBRACTER 

| REPEAT 

I 

INOMEXI5TANT LINE OH LINE ZERO 



ICOMPUTE START OF NEW LINE 

lEERO LIST LINK AND 

J SAVE LINE NUMBER 

IFLAG «M 0" ERROR IMMEDIATELY, 

t SETUP INPUT POINTER 



*.MAI«, «ACY1 1,620 19»MAR»73 13101 
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1«41 








1042 








1043 








10)44 








1045 








1046 


00*646 


104622 




1 (?»47 


003650 


010446 




1048 


04*3652 


010346 




1049 


003654 


104624 


A03712 


1050 


00.1660 


016301 


177776 


1051 


003664 


001401 




1052 


003666 


104626 




1053 


003670 


112304 




1034 


003672 


104604 




1055 


003674 


122704 


000216 


1056 


003700 


001373 




1057 


003702 


016703 


175700 


1058 


003706 


062303 




1059 


003710 


001414 




1060 


003712 


105767 


175713 


1(961 


003716 


100411 




1062 


003720 


104650 


003730 


1063 


003724 


104630 




1064 


003726 


000752 




1065 








1066 


003730 


104604 




1067 


003732 


132767 


000001 


1068 


003740 


001371 




1069 


003742 


000522 




1070 








1071 









175671 



|«WHT1'E* 






jOUTPUT 


r QMMANn 


TEXT 




WRITE J 


GETLN 








MOV 


CHAR, 


-CSP3 




MOV 


AXOUT, 


*CSP3 


WRITE2I 


ri«DT,N, 


WTESTG 






MOV 


«2(AXQLTT),AC 




BEG 




wPT'lPli 




PRWTLN 






WRTTELl 


VQVB 


(AXOUT)+,CHAR 




PR1NTC 








fMPB 


#CR, 


CHAR 




BNE 




WRITEL 




MOV 


THISLN, 


AXOUT 




ADD 


CAXOUT3*#AXOUT 




REG 




WGO 


WTF.STGl 


TSTB 




SWITCH 




RMI 




WGO 




GROOVY f 


WRED 




WRIGf 


CQPttiN 








BR 


WRITE2 




WREDl 


PRINTC 








BITB 


IALL, 


SWITCH 




BNF 




WHIG 


WGOI 


BR 


DOXIT 





REAP. TrtE ARGUMENT 

PERMIT FOT,L.OaT.vG Sfe;»«lCOT OM , 

LOOKUP THF MWE 

TEST FOR LIME 4ERO 

BRANCH TO PRINT TITLE OVLY 

PRI^T \'ON»ZERO LIME *OS, 1H "AC" 

REAO W/o TRACE 

PPI*JX ONE CHARACTER 

TEST EOR EMH 

REPEAT 

COMPUTE *EXT LINE 

ADDRESS REAHY VOw, 

LEAVE IE LAST IjTNF, 

TEST FOP SIMGLt LINE 

YESaEXIT 

SAME GROUP AS LAST LINE? 

COPY THIS NEXT MWE NUMBER, 

GO FIND IT, 

PRP'T EXTRA CR AFTER GROUP, 
TEST FOR "ALL"? 
YES, KEEP IT UP, 
RET T .JK* 



.MAIM, 
FOCGT.l 

107 3 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
10R1 
1082 
1083 
1084 
1086 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 

1114 
1316 
1116 
H|7 
1118 
I11» 
1120 
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003744 
003746 
003750 
003752 
0*53754 
003760 
003762 
003764 
003766 

003770 
003774 
003776 
004000 

004002 
004004 
004006 
004010 
004012 
004016 
004020 
004022 
004074 
004030 
004032 

004034 
004036 



i«4620 

004814 
0040.52 
002314 
122704 

001003 
104640 
104636 
104632 

122704 
001002 
104640 
104632 

104622 

005701 
001706 
000004 
105767 
100762 
005703 
001760 
104650 
104630 
000766 

104636 

000606 



J#FRA.SE*FRASF ALL*ERASE TfcXT#ERASE IGROUP t MNE«# 
FRASEI TESTC 



000101 



000124 



175613 



003764 







ERVC 








ERL 








Ll^ERR 






CMPB 


#»A, 


CHAR 




BNE 




F.RT 




FRASET 






ERVl 


ERASEV 
START 






ERTI 


CMPB 


#'T# 


CHAK 




BNE 


ERL 






ERASET 








START 






FRLI 


GETLN 








TST 


AC 






BEO 


SERR 




ERGl 


DELETE 








TSTB 


SWITCH 






BMI 




ERV 




TST 


AXOUT 






BEQ 


ERV 






GROOVY, 


ERV 






COPYLN 








BR 




ERG 


ERVCl 


ERASEV 








BR 


PROC 





I "COPYLN" 

IUSED BY #WRITE#, #ERASE#, AND *D0* 



004040 016367 000002 
004046 000205 



004050 016767 175574 
004056 012767 176122 
004064 000205 



175556 


COPYLXt MOV 
RT5 

|»ERASET» 


2(AXOUT),LINENO 
R5 


175566 
175&70 


ERTXl MOV 

MOV 
PTS 


TOP, BUFK 

#0*CFRS*?,CtRS 

R5 



TEST THE ARGUMENT. TF A*-*y, 

ERASE "VARIABLES 

ERASE LINF OR GROUP OF TEXT 

ERkOK, 

TEST FOP "ALL 

WHY NOT USE A VARIABLE NAME ? 

OUT THE TEXT 

ERASE THE VARIABLES ALSO 

Grt TO COMMAND/INPUT MODE 

"ERASE TEXT" ONLY ? 

NO, DO LINE 

YES 

GO BACK 

READ LINE DUMBER, 

DOw'T ERASE LINE 

iiERfil 

EXTRACT OME LINE (NO BREAKS!) 

TFST FOR SINGLE OR GROUP 

ONLY ONE 

CHECK FOR EMD OF LIST Tn 

AVOID REALLY WILD LOOP1 

TEST FOP SAME GROUP MEMBER 

MOVE AHEAD 

AND DO ANOTHER, 

*E# COMMAND IN TEXT IS OK, 

GO TO NEXT COMMAND OF PROGRAM, 



fUSE NEXT LINE NUMBER 

I RETURN TO #WRITE#ERASE#PO* f 



I ERASE AT.L TEXT 

» INITIALIZE LINE ZERO POINTER DATA 



.MAIM, MACYn.62C 19»MAR»73 13f01 PAGE 28 
FOCGT.002 



1122 
















1 123 








|*D0# 








1124 
















1 ??b 








IRECURSTVE OPERATE 




1126 
















1127 


0SJ4066 


1046?2 




D0| 


GETLN 






112R 


004070 


010446 






MOV 


CHA*. 


-csn ? 


1129 


004072 


010346 






MOV 


AXOUT, 


-CSP5 l 


1110 


004074 


016746 


175504 




MOV 


PCF, 


•CSP5 f 


1 i "*1 


004100 


104624 


004106 




FINDLN'# 


DOGR 




1112 


004104 


000407 






BR 




noGRPi > 


1133 
















1114 


004106 


105767 


175517 


DOGHl 


TSfB 




SWITCH | 


1115 


004112 


100442 






BMI 


DOER 




1136 
















1117 


004114 


104650 






GROOVY 






1138 


004116 


004220 










noEH i 


1119 


004120 


104630 




DOGRP2J 


COPYI.N 






1140 


004122 


022323 






CMP 


f AXOUT )♦,( AXOUT )+ » 


1141 


004124 


116746 


175501 


DQGRPll 


MOVB 


SWITCH, 


*CSP) ? 


1142 


004130 


016746 


175452 




MOV 


THISLN, 


*CSP) t 


1143 


004114 


004767 


177304 




JSP 


PC 


PSCAN | 


1144 


004140 


012600 






MOV 


CSP)+, 


TEMP f 


114b 


004142 


112667 


175463 




MOVB 


CSP}+, 


SWITCH » 


1146 


004146 


100416 






BMI 


DOCONT 




1147 


004150 


016703 


175430 




MOV 


PCF, 


AXOUT f 


1148 


004154 


062303 






ADD 


(AXOUTU, AXOUT | 


1149 


004156 


001412 






BEO 


DOCONT 




1150 


004160 


010367 


175422 




MOV 


AXOUT, 


THI5LN f 


1151 


004164 


132767 


000001 175437 


BITB 


• AF.Li 


SWITCH | 


1152 


004172 


001352 






BNE 




DOGRP2 | 


1153 


004174 


126063 


000003 000003 


CMPB 


3CTEWP) 


»3(AXOUT) | 


1154 


004202 


001746 






BEO 




DOGRP2 > 


1155 


004204 


012667 


175374 


DOCONTI 


MOV 


t&P)+, 


PCF » 


1156 


004210 


012603 




DOXITI 


MOV 


£8P)*, 


AXOUT > 


U97 


004212 


012604 






MOV 


C5P)*# 


CHAR f] 


1158 


004214 


000167 


177234 




JMP 




PROC f( 


1159 
















1160 


004220 


104615 




DOERt 


ERR0R+201+6,*6, 


11 


1161 

















READ LX^t * ARG*?**Fn? 

SAVE THE «EXT CHARACTER, 

CHARACTER POINTER OF CURRENT LOCATION 

SAVE ADDRESS OF LI*F AND 

LOOKUP THE MNt 

FOUMDi 

TEST FOR SIMGT-fcTO*! 

YES, OUGHT TO HAVE BEEN THF.Rh, 

CfTHISLN)HC(AXOUT), 

COMPARE GROUP NOS, 

ERROR, MO SUCH GROUP 

COPY FIRST LINE <\0, OF THE GROUP 

POIWT FORWARD 

SAVE FLAGS 

SAVE ADDRESS OF LINE BEING DONE 

SCAV COMMANDS IN THAT LINE 

RESTORE LINF LAST DONE ADDRESS 

RESTORE CORRECT SCOPE OF "DO" 

IF SINGLE LINE, *E ARE r>0«E NOW, 

KEEP POINTER TO NEXT LINE TO BE DONE, 

COMPUTE tfFXT ADDRESS IN GROUP, 

LEAVE IF OUT OF TEXT ALTOGETHER 

SAVE POINTER 

TEST FOR "DO" OR "DO ALL" 

COMPARE GROUP NOS, 
GO DO NEXT ONE, 
* • t 
1 1 1 

RESTORE THE LAST CHARACTER, 
CONTINUE THE STRING 

NO SUCH GROUP TO BE DONE, 



.MAjM^f 

focgtI 


i *<Acyi r, 


,620 19«MAR«73 


13101 PAGE 29 














Hfi3 








l#SET*FOR# 


1164 












1165 








7 LOOP CONTROL STATEMENT 


1166 












1167 




«04:<22 




SET*. 




t ifiS 


004222 


004767 


000446 


FORI 


JSR PC, GfcTARG 


1169 


004226 


104634 






SPNOR 


i 170 


004230 


122704 


000217 




CMPB #217. CHAK 


1171 


004234 


001006 






BNE FINERR 


1172 


004236 


010246 






MOV PTR, *(SP) 


1173 


004240 


104660 






EVAL.X 


1174 


004242 


007064 






FPPUT+THRQUGH+STACK 


117b 


004244 


104600 


001441 


001336 


3QRTJ,TLIST,FLISTl 


H76 


004252 


104617 




FlNERRl 


ERROR+201+7,+7, 


1177 


004254 


104660 




FINCRl 


EVAL.X 


1178 


004256 


104600 


001441 


001330 


SORTJ,TLXST,FLIST2 


1 179 


004264 


000772 






BR FINERR 


1180 












1181 


004266 


012746 


040000 


FINFINI 


MOV #40000, *(SP} 


1182 


004272 


012746 


000001 




MOV U, *(3P) 


1183 


004276 


000403 






BR FCONT 


1184 












1185 


004300 


024646 




FLIMITI 


OPEN+STACK 


1186 


004302 


007063 






FPPUT+INTO+STACK 


1187 


004304 


104660 






EVAL.X 


1188 


004306 


024646 




FCONTI 


OPEN+STACK 


1189 


004310 


007063 






FPPUT*INTQ*STACK 


1190 


004312 


010346 




FCONT2! 


MOV AXOUT, «tSPl 


1191 


004314 


016746 


175264 




MOV PCF, .CSP5 


1192 


004320 


004767 


177126 




JSR PC, PROCESS 


1193 


004324 


012667 


175354 




MOV (SP)*, PCF 


1194 


004330 


012603 






MOV (SP)*, AXOUT 


1195 


004332 


016602 


000010 




MOV 10(SP), PTR 


1196 


004316 


005746 






TST *(SP3 


1197 


004340 


010616 






MOV SP, (SP) 


1198 


004342 


062716 


000006 




ADD #6, ftSP 


1199 


004346 


007001 






FPCET4-IPTR 


1200 


004380 


007014 






FPADD4THROUCH+STACK 


1201 


0043B2 


007061 






FPPUT«-IPTR 


1202 


0043S4 


00S726 






TST (SP)* 


1203 


004356 


007023 






FPSUB+FROM+STACK 


1204 


004360 


005767 


175234 




TST HORD 


1205 


004364 


003752 






BLE FC0NT2 


1206 


004366 


062706 


000012 




ADD #12, SP 


12«7 


004372 


000207 






POPJ 


1208 













fLOCATE THE VARIABLE 

I IGNORE TRAILING SPACES (O'Dl 

I TEST FOR "a" 

t ERROR TO LEFT OF a SIGf* 

tSAVE VARIABLE POINTER OM THE STACK, 

? EVALUATE RIGHT WAND EXP, 

jUPDaXE+lNDEX VALEE 

jTEST TERMINATOR 

J ILLEGAL FORMAT IN #SET# OR #FOR# COMMAND 

I EVALUATE EXPRESSION, 

»TEST TERMINATOR 

fERROR CALL 

1 

(SET THE 

! INCREMENT TO UNITY 

I GO SAVE THE LIMIT, 

1 

JSAVE INCREMENT 

lEVALUATE LIMIT 
ISAVE THE LIMIT, 

fSAVE TEXT POINTER 

fCURRENT LINE ADDR 

J GO EXECUTE THE REST OF 

IRESTORE TEXT POINTERS 

lt«« 

fGET yAR POINTER 

fCREATE INDEXED ADDRESS OF INCREMENT 

lLOAD FLAC WITH THE VARIABLE 
tADD THE INCREMENT AND 
»SAVE IT 
J INDEX TO THE LIMIT 

! COMPARE RESULT WITH LIMIT 
lA^'D DROP INDEXED POINTER, 
fREPEAT, IF LIMIT NOT EXCEEDED 
IUVLOAD THE STACK, 
fEXIT THE COMMAND, 



ID AND 
THEN 

THE LINE 



.MAIN, MACY11»620 19»MAR*73 13101 
FOCGT.002 

1 21 ^ 

1211 
1212 
1213 

1214 004174 110405 

1215 »B4476 120427 000211 

1216 004402 103401 

1217 004404 005005 

1218 0044P6 120S16 

1219 004410 101023 

1220 004412 112600 

1221 004414 010001 

1222 004416 001407 

1223 004420 007003 

1224 004422 022626 

1225 004424 106301 

1226 004426 106301 

1227 004430 106301 

1228 004432 042701 177700 

1229 004436 062701 007001 

1230 004442 007200 

1231 004444 012702 001613 

1232 004450 007061 

1233 004452 060500 

1234 004454 001354 

1235 004456 000207 
1236 

1237 004460 120527 000206 

1238 004464 002011 

1239 004466 016246 000002 

1240 004472 012246 

1241 004474 010546 

1242 004476 004567 176422 

1243 004502 100007 

1244 004504 104652 004572 
1245 

1246 004510 010446 

1247 004512 012746 004656 
1246 004516 104614 

1249 004520 005046 

1250 004522 104620 

1251 004524 004544 

1252 004526 004574 

1253 004530 004614 

1254 004532 004767 000146 

1255 004536 104634 

1256 004540 100412 

1257 004542 000413 
1258 
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f 'EVAL' 

I EVALUATE AN EXPRESSION 



ETERMl 


VQVB 


CHAR* 


R5 




CMPB 


CriAK* 


#211 




BLO 




E TERM 2 




CLR 




R5 


ETERM21 


CMPB 


R5, 


(BSP 




BHT 




EPAK 




MOVB 


(SP)+, 


TEMP 




MOV 


TEMP, 


AC 




BEQ 


EPURE 






FPGET+FROM+STACK 




CL05E+3TACK 






ASLB 




AC 




ASLB 




AC 




ASLB 




AC 




BIT 


««100 f 


AC 


EPUREI 


ADD 


#FPGET*1PTR, AC 




FCODE 








mqv 


#FLARG, 


PTR 




FPPUT+IPTR 






ADD 


R5, 


TEMP 




BNE 




ETERM2 




POPJ 






EPARl 


CMPB 


R5, 


• 20b 




BGE 




EPAR2 




MOV 


2CPTR), 


• (SP5 




MOV 


(PTRW, 


• CSP) 




WOV 


RSi 


• (SP5 


ARGNXTl 


JSR 


R5# 


SPNXT 




BPL 


EVAL+2 




ELPARl 


SKPLPR, 


OPERR 




EPAR2I 


MOV 


CHAR* 


«£SPS 




MOV 


#EFUN3, 


■ cspj 




GETC 






EVAU 


CLR 

TESTC 


• {SP3 

ETERMl 

ENUM 
EFUN 






JSP 


PC, 


GETVAR 


OPNEXTl 


SPNOR 








BMI 


ETERMN 






BR 


OPERR 





(OPV THIS OP, 
THISOPsRPAR? 
N 

YES, SET THTSOPaZERO 
COMPARE TWO OPERATORS 
LAST>TriIS?-YES STACK AND 
SFl LEFT HAT.E TO ONES OR 
COPY THE OP CODE, 
END OF JOR?-YES, JUST GO T.F.AVE 
yf40f USE ITEM fin TOP OF 
REMOVE THE ITEM 
MOVE OPERATOR CODE INTO POSTTI f > M 



CO*!TT-v"K 
STOP IF ZERO 



RESULTS 
STRCK, 



MAKE POSITIVE, 

LOAD BASE BINARY PL"S. ADDRESSING M QPE. 

EXECUTE THE AC 1 

LOAP POINTER 

SAVE COPSf OF RESULT 

CHECK THISOP-LASTOP 

GO COMPARE PRIORITIES, 

EXIT 

CHECK FOR 

LEFT PAREN.T-YES, 

OPEN STACK AND SAVE DATA, 

UPDATE LASTOP 

OUGHT TO BE AN ARGUMENT HERE- 
TEST FOP THE TYPE 
ILLFGAL TO STAR AM EXPRESSION 
WITH RIGHT PARENS, 
SAVE THE LP CODE AND COMPUTE THE 
LOAD TRANSFER FOR "POPJ* AT "EXTT" 
MOVE ONTO NEXT CHARACTER (ENTRY P01*T #2) 
SET LASTOP«0 (ENTRY POINT *t) 
TEST CHARACTER TYPEl 
COULD BE A UNARY OPERATOR 
OR A NUMBER, 
OR ft FUNCTION, 
OR A VARIABLE 

IGNORE SPACES AROUND OPERATORS (O'D) 
IF NEGATIVE, THEN IT TS A LEGIT, TERM, 
OTHERWISE IT IS ILLEGAL FORMAT, 



'AIM,, 


f *YU. 


620 19» 


MAR-73 


>CGr,i 


1 






1260 








126 J 


#04544 


012702 


003530 


1262 


004550 


12*427 


000202 


126 3 


004554 


001707 




1264 


Wb56 


103747 




1265 


004560 


120427 


0002 3 l 


1266 


004564 


S03747 




1267 


004566 


1046^2 


004374 


1268 


004572 


104621 




1269 








1270 


004574 


112767 


000020 


1271 


004602 


007075 




1272 


004604 


012702 


001612 


127 3 


004610 


007061 




1274 


004612 


000751 




1275 








1276 


004614 


005005 




1277 


004616 


006305 




1278 


'004620 


006105 




1279 


004622 


060405 




1280 


004624 


104614 




1281 


004626 


100373 




1282 


004630 


010446 




1283 


004632 


010546 




1284 


004634 


104660 




1285 


004636 


012605 




1286 


004640 


012701 


001166 


1287 


004644 


005741 




1288 


004646 


001410 




128i 


004650 


024105 




1290 


004652 


001374 




1291 


004654 


004751 




1292 


004696 


104646 




1293 


004660 


007070 




1294 


004662 


000750 




1295 








1296 


004664 


010516 




1297 


004666 


000713 




1298 








1299 








1300 
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ETFRMlt MOV #FLTZEP,PTR 

TMPB CHAR, »202 
BED FTEhM 

BLO ARGNXT 

CMP8 CHAR, #211 
BLO ELPAR 

ETERMNI SKPLPR, FTERM 

OPERRl FRROR+201+8,+8, 



175327 ENUMt 



•NALPHA, SWITCH 



MOVB 
FRF AD 
ENUH2I MOV #FLARG, PTR 
FPPUT+IPTR 
PR OPNEXT 



EFtJN! CLR 
A5L 
POL 
ADD 
GETC 
BPL 
MOV 
MOV 

EVAL.X 
MOV 
MOV 
T5T 
BEG 
CMP 
BNE 
JSR 

RFUN3I PAPTIT 
FPNOR 
BR 

EVALUXl MOV 
BR 



;eot 



R5 



CHAR, 



CHAR, 
R5, 



R5 

R& 
R5 

EFUN+2 
• CSP) 
pCSP) 



(SP)+, R5 

#FNTABL#AC 

"(AC) 

VERR 

•{ACJ, 

,«6 

PC, 



R5 
#*CAC) 



ENUM2 

R5, 
EVAL»2 



MP 



ASSUME PRFSFNT VALUE OF ZERO, 

MINUS? 

YES, GO PROCESS IT 

PLUS?- YES, IGNORE IT 

SCmF. TYPE OF RIGHT TERMINATOR? 

NH, GH TEST FOR LEFT PARENTHESIS SPECTAT, CASE 

LEFT PAREl? * ^0, C^nTINUF TO PROCESS 

MI5S1VG OR HOUBLE OPERATOR ERROR 

USE INTERNAL DATA A*D ACCEPT ALPHA DATA 
READ IN A NUMBER, 
SET POINTFR 
SAVE RESULT- 
GO GET OPERATOR 

OLD "EFOP" 
HASH CODE 



READ THE MNEMONIC LETTERS 

REPEAT UNLESS TERMINATOR FOUnH 

SAVE LAST CHARACTERIPAREN, 

SAVE HASH CODE 

PROCESS FIRST ARGUMENT 

GET BACK "EFOP" 

INIT THE SEARCH, 

TEST FOR ENH, 

NO SUCH FUNCTION 

TEST FOR MATCH 

RFPEAT IF MOT FOUND, 

CALL THE FUNCTION, 

CHECK CLOSING PARENS 

BE SURE THAT RESULTS ARE NORMALISED 

GO SAVE RESULTS AND SET POINTER, 

fSIMULATE "PUSHJ EVAL-2" 



.MATN, MACYi 1,620 19-M.AR-73 13|0i 
FOCGT.002 



1302 








1303 








1304 








1 3*5 








1306 








1307 


004670 


104605 




13*8 


004672 


104607 




1309 


004674 


104620 




1310 


004676 


004252 




1311 


004700 


004670 




1312 


004702 


004670 




1313 


004704 


012746 


100000 


1314 


004710 


110416 




1315 


004712 


005046 




1316 


004714 


104614 




1317 


004716 


100404 




1318 


004720 


110466 


000003 


1319 


004724 


104614 




1320 


004726 


100376 




1321 


004730 


104652 


004776 


1322 


004734 


010446 




13?3 


004736 


104660 




1324 


004740 


007071 




1325 


004742 


010166 


000002 


1326 


004746 


120427 


000214 


13?7 


004752 


001004 




1328 


004754 


104660 




1329 


004756 


007071 




1330 


004760 


110166 


000003 


1331 


004764 


104646 




1332 


004766 


000403 




1333 








1334 








1335 


004770 


012746 


100046 


1336 


004774 


010046 




1337 








1338 








1339 








1340 








1341 








1342 


004776 


016700 


174644 


1343 


00S002 


016705 


174644 


1344 


005006 


010001 




1345 


005010 


024545 




1346 


005012 


160501 




1347 


005014 


011602 




1348 


005016 


066602 


000002 


1349 


005022 


000302 




1350 








1351 


005024 


040102 




1352 


005026 


042702 


000007 


1353 








1354 
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i »getvar> 

IFIND OP CREATE A VAMIA.HT.K 



VERHf 


ERROP+201+2,+2, 




PFPR.I 


KRPOR+201+3,+3, 




GETARGl 


TESTC 
FINERR 
VEPR 
VEPP 






CETVARl 


MOV 


#100000 


,-(SF) 




MOVB 


CHAR. 


asp 




CLP 




-CSP5 




GETC 








RMI 




GSFRCH 




MOVB 


CHARi 


3(SP) 




GETC 








BPL 




.-2 


GSERCH! 


SKPLPR, 


GS1 






MOV 


CHAR* 


• CSP) 




FVAL.X 








FPINT 








MOV 


AC, 


2CSP) 




CMPB 


CHAR, 


1214 




BNE 


GS0 






EVAL.X 








FPINT 








MOVB 


AC, 


3CSP) 


GS0I 


PARTST 








8ft 


GS1 





IWHIP UP A VARIABLE fctCCTEMP)) 
WHIPVI MOV #100046, •CSP5 
MOV TEMP, »(SP) 

fSTACK NOW CONTAINSI 
fftflUBS* fSP) 
f«NAME# 2CSP) 



Q*lt 



MOV 


STARTV, 


TEMP 


MOV 


BOTTOM, 


R5 


MOV 


TEMP, 


AC 


CMP 


»(R5), 


■ CR5) 


SUP 


R5, 


AC 


MOV 


0SP, 


PTR 


ADD 


2(SP), 


PTR 


SWAB 


PTR 




BIC 


AC, 


PTR 


BIC 


#7, 


PTR 



ILLEGAL VARIABLE HS Fl'*CTTO T v ?'A M t, 

PAREH MISMATCH EhROP 

CHECK CAREFULLY 

TERMINATOR 15 NOT A VARIABLE, 

N 

Fe? PTR»HOLF 

CLEAR NAME SPACE ON STACK TO "SPACE 1 

SAVE FIRST LETTER OF KAME IN STACK 

CLEAR SUBSCRIPT SPACE ON STACK 

READ AND TRACE NEXT CHARACTER 

TEST FOR TERMINATOR 

SAVE SECOND LFTTER OF NAME 

IGNORE UNTILL TERMINATOR FOUND, 

CHECK FOR SUBSCRIPT 

SAVE LEFT PARENS, CODE, 

EVALUATE THE SUBSCRIPT AND 

CORRECT IT TO AN INTEGER 

SAVE SUBSCRIPT ON STACK 

COMMA? 

SKIP IF ONLY ONE SUBSCRIPT, 

GO READ THE SECOND SUBSCRIPT, 

CONVERT IT TO 0*256. 

COPY 2AND INTO LEFT HALF, 

CHECK FOR CLOSING PARENS MATCH, 



fGET TEMPORARY POINTER (UPPER LIMIT) 

I GET END OF "AREA", 

ICOPY THE STOP VALUE (LOWER LIMIT) 

|BE SURE LAST ENTRY DOES NOT PASS (BOTTOM), 

jCOMPUTE TABLE LENGTH NEGATED, 

jCOPY SUBSCRIPT 

JC0MB1NE LETTERS PLUS SUBSCRIPT 

fMAKE LAST CODES FIRST! 

JTAKE RESULT MODULO THE SIZE OF 

jTHE SYMBOL TABLE AMD 

I MODULO 10(81 



JCHANGK #7 TO ••! FOR A CHRONOLOGICAL TABLE, 



.MAIM. 


I YU. 


620 J9» 


• HAR»73 


FOCG*,0 


t 






115ft 








1 157 








1358 








1 359 








1360 








1361 








1362 








1363 








1364 


005032 


060002 




1365 


005034 


010201 




1366 








1367 








1368 








1,369 








1370 








1371 








1372 








1373 








1374 


005036 


004567 


000072 


1375 


005042 


010^02 




1376 


005044 


010105 




1377 


005046 


004567 


000062 


1378 








1379 








1380 








1381 


005052 


016746 


174574 


1382 


005056 


010002 




1383 


005060 


005762 


000006 


1384 


005064 


001441 




138b 


SJ05066 


062702 


000010 


1386 


005072 


0202U 




1387 


005074 


103771 




1388 


005076 


104627 




1389 








1390 








1391 








1392 








1393 








1394 








1395 








1396 
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|TEMP=START 
|AC*I.ENGTH 
|R5*L0WER LIMIT 
>PTH=HASH CODE 
fSFARCH VARIABLES 



FOR MATCH OR AM UNUSED SPACE 



ADD 
MOV 



PTR, 



PTR 
AC 



UNITIALIZE POINTER "FTP" 
tSAVF. THIS VALUE 



| 'TEMP' POINTS TO UPPER LIMIT 
I'AC MOLDS HASH-CODE ADDRESS 
j»PTR' SCANS THE STORAGE 
t'AXOUT* POINTS TO NEXT CHARACTER 
| 'CHAR' HOLDS LAST TERMINATOR 
|'R5« HOLDS THE SCAM LOWER LIMIT 





JSR 


R5, GTPY 




MOV 


TEMP, PTR 




MOV 


AC, R5 




JSR 


Rb, GTRY 


J SEARCH 


FOR A 


ZEROpVALUE var 




MOV 


BOTTOM, *CSP 




MOV 


TEMP, PTR 


GSWIPI 


TST 


6 (PTR) 




BEQ 


GTAKE 




ADD 


#10, PTR 




CMP 


PTR, pSP 




BLO 


6SWIP 



ERROR+201*U,*U', 



I SEARCH LOWER HALE 
I BEGIN AT THE TOP J 
J END VALUE RESTARTED. 
ISEAPCH UPPER HALF 



fEKD AT THE BOTTOM 

jBEGIN AT THE TOP 

J ZERO? 

fYESl 

I BUMP, 

|END? 

»NOT YET I 

PJUST MO ROOM AT ALL1 



I VARIABLE STORAGE I 

INAMEI (B,A) 

ISUBSCRIPTI (16) OR (8,8) | (2,i) 

>LORD,EXP| triHkb VALUE OF PTR POlVTS TO THIS LOCATION,) 

fHORDl CIF ZERO THEM ALL THESE PARTS ARE ASSUMEO ZERO) 



'.MAIN, MACYi 1,620 19»MAR«73 13*^1 PAGE *4 
FOCGT.002 

1398 

1399 

1400 

U01 005100 ^lfi7«l 174546 

14<*2 005104 P)« t 5«41 

1403 vi051R6 020167 174532 

1404 005112 101403 

1405 005114 020167 174522 
J4PI6 005120 101371 
14*7 005122 «627<U 000120 

1408 005126 010167 174514 

1409 005112 000205 
1410 
1411 
1412 
1413 
1414 
141b 
1416 
1417 
1418 
1419 
1420 
1421 
1422 

1423 805194 026612 000004 

1424 005140 001407 

1425 005142 005712 

1426 005144 001411 
U27 005146 062702 000010 

1428 005152 020216 

1429 005154 103767 

1430 005156 000205 
1431 

1452 005160 026662 000002 

1433 005166 000766 
1434 

1435 005170 016622 000004 GTAKEI 

1436 005174 016622 000002 

1437 

1438 005200 062706 000006 

1439 005204 000207 
1440 

1441 
1442 
1443 
1444 
1445 
1446 

1447 005206 005726 

1448 005210 062716 000003 

1449 005214 120426 

1450 005216 001225 

1451 005220 104614 



|'»KRASFV» 






FRVXl VOV 


BOTTOM, 


AC 


CLP 


• (AC) 




CMP 


AC, 


fUiFH 


PLCS 


, + 10 




CMP 


AC, 


AX1N 


BHI 


,-14 




ADn 


• 80,, 


AC 


MOV 


AC, 


SIABTV 


RTS 


R5 





|GTRY 

fSCAN FOP A MATCH OR A VOID, 

(CALLED BY JSR R5,C.TRY 

fSTACK CONTAINS 

|*LOWER LIMIT* 0CSP) 

|#SUBS* 2(SP) 

|#NAME# 4(SP) 

?«OLD PC«6(SP) 

|PTR CONTAINS START Or VARIABLE STORE 



GTPYl 



GTRY2 



CMP 
BEQ 
TST 
BEQ 
ADD 
CMP 
BIO 
RT5 



000002 6TESTI CMP 
BR 



MOV 
MOV 

ADD 
POPJ 



4CSF), 



#10» 
PTR, 
GTRY 
R5 

2CSP), 



4CSP3, 
2CSP)i 

16* 



•PTR 

GTFST 

9PTR 

GTAKE 

PTP 

MP 



2CPTR) 
GTRX2 

CPTR)+ 
(PTK)* 

SP 



I CLEAR UP FROM THE B^IT,^' 

I CLE AH A WORD 

ITEST FOP END OF VAKIAHLE AREA 

I USE LARGER OF (AAIM OR (BUFR1 



fCOMPAPE TRUE NAME, 

pGO TEST SUBSCRIPT 

lLOOK FOR NULL 

? GO SWIPE TTl 

| MOVE POINTER 

fTEST LIMIT 

{REPEAT 1 

JNOT IN THAT AREA, RETURN, 

I 

ITEST SUBSCRIPT 

ITRY AGAIN 

I 

pSAVE NAME 

fSAVE SUBSCRIPT 

ILEAVE PTR AS POINTER 

fFLUSH STACK DATA 

IRETURN FROM THE "GETVAR" ROUTINE, 



l»PART5T«* 

|BE SURE PRESENT CHARACTER IS MATE TO PARENS IN THE STACK 



PARTSA1 TST 


fSP)* 




ADD 


• 3, 


(»SP 


CMPB 


CHAR, 


(SP>* 


BNE 


PERR 




GETC 







I DUMP OLD IR5« 

tCOMPUTE MATCHING PARENS 

(COMPARE THE ACTUAL WITH COMPUTED, 

jGO CALL "ERROR" IF THEY DON'T *ATCH 

jm«JV& \J'i IV! int.- -*t.mi w -tiwi*. » ■ ..-. 



'.MAIM, / YJ 1,620 19-MAR-71 13J01 PAGE 34»1 
FOCGT.eJ, 

1452 005222 0001 lb ,1MP $R5 fRFTURN TO THE SEQUENCE 



'.MAIM, MACY1 1,620 J9»MAR»7J 
FOCGT, 002 
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1454 








145b 








1456 








1457 








1458 








1459 


005224 


104656 




14665 


0^5226 


004767 


177266 


1461 


005232 


104475 




1462 


005234 


016702 


174366 


1463 


005240 


007076 




1464 


005242 


000770 




1465 








1466 




000030 




1467 


005244 


104656 




1468 


005246 


004767 


177422 


1469 


005252 


104472 




1470 


005254 


010346 




1471 


005256 


J10446 




1472 


005260 


012703 


000030 


1473 


005264 


160306 




1474 


005266 


010605 




1475 


005270 


010246 




1476 


005272 


112725 


000200 


1477 


005276 


010567 


174340 


1478 


005302 


005002 




1479 


005304 


104606 




ua« 


005306 


104602 


001442 


1461 


005314 


005303 




1482 


005316 


003001 




1483 


005320 


104641 




1484 


005322 


104600 


001445 


1485 


005330 


104616 




i486 


005332 


100764 




1487 


005334 


011702 




1488 


005336 


000762 




1489 








1490 


005140 


005702 




1491 


005342 


001760 




1492 


005344 


112704 


000214 


1493 


005350 


104616 




1494 


005352 


111767 


174232 


1495 


005356 


010503 




1496 


005360 


105743 




1497 


005362 


104660 




1498 


005364 


007064 




1499 


005366 


105067 


174216 


15A0 


005372 


062706 


000032 


1501 


005376 


112604 




1502 


005400 


012603 




1503 


005432 


000720 





|*TYPE#ASK# 






I twPijT" 


■OUTPUT STATEMENTS 


TYPEi 


TASK 








JSP 


PC, 


KVAL 




PRINT* 


is 






MQV 


FIS*, 


PTR 




FPPIWT 








BR 




TYPE 




STRING* 


24, 




ASKI 


TASK 








JSR 


PC, 


f.F.TAR 




PRINT* 


'1 






MOV 


AXOUT, 


• CSPi 




MOVB 


CHAR, 


• IS*) 




MOV 


•STRING 


,AXOUT 




SUB 


AXOUT, 


SP 




MOV 


SP, 


R5 




MQV 


PTR, 


• (SP) 




MOVB 


• 200# 


CR5)* 




MOV 


R5, 


AXIN 




CLP 


PTR 




ATAKEt 


READC 







005344 



001366 



ARO| 



SORTC,TLIST+l,AFIX 

DEC AXOUT 

BGT .+4 

ERROP+201+16,+16, 

SORTJ, SPECIAL, INH8T 

PACKC 

BMI ATAKE 

MOV *PC, PTR 

BR ATAKE 



ASPACEl TST 

BEQ 



PTR 

ATAKE 

•214, CHAR 



PPC, DEBG 
R5, AXOUT 
-CAXOUT) 



AFIXl MOVB 
PACKC 

MOVB 
MOV 
TSTB 
EVAL.X 

FPPUT+THROUGH+STACK 
CLRB DEBG 
AGOI ADD *STRlNG+2,SP 
MOVB fSP)+, CHAR 
MOV (SP)*, AXOUT 
BR ASK 



CHECK FOR SPECIAL CODES 
EVALUATE EXPRESSION 
MAKE LEADTN SIGNAL, 
LOAD FORMAT DATA 
PRINT SAME 
REPEAT 

NUMBER OF CHARACTERS ALLOWED OM INPUT, 

CHECK FOR SPECIAL CODES 

READ «A M E AMD SETUP PTR 

INDICATE READY FOR INPUT DATA, 

SAVE TEXT POINTER 

SAVE VARIABLE POINTER 

MAKF COUNTER 

OPEN AREA ON THE STACK 

SET RU80UT STOP 

STACK THE DATA POINTER 

PACK A LEADING ZERO, 

USE FOR PACKING 

SFT SPACE - FLOP 

ACCEPT CHARACTER 

TEST FOR PRIME TERMINATORS 

COUNT CHARACTERS 

SKIP IF OK, 

TOO LARGE AN TNPUT STREAM, 

TEST FOP ALTMODE, SPACE, R t O,, L,F, 

PACK INPUT AND EDIT, 

IF TERMINATOR, CONTINUE 

SET SWITCH SO THAT SPACE CODE 

WILL TERMINATE AND ALPHA IS ACCEPTED, 

CHECK STATUS OF SPACE, 

IGNORE, 

PACK AN EXTRA COMMA 

DISABLE TRACE 

PICKUP DATA 

BACKUP TO LEAD ZERO, 

GO READ THE NUMBER OH EXPRESSION i 

SAVE THE RESULT 

REpENABLE TRACE 

CORRECT THE STACK 

RESTORE TEXT SEQUENCE 

CONTINUE *ASK* COMMAND, 



'.MAIN, / 
FOCGT.OJI, 
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15<»5 

15«7 
15058 
1509 
1518! 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1533 
1524 
1525 
1526 
1527 
1528 
1529 
1510 
1531 
1532 
1533 
1534 



005404 
005410 

«(*5412 
005420 
005424 
005426 

005430 
005432 
005434 
005440 

005442 
005444 
005450 
005452 
005456 
005460 
005462 

005464 
005470 



104642 
104614 
104600 
122704 
101771 
00020b 

104614 
104622 

010167 
000764 

112304 
122704 
001760 
122704 
001754 
104604 
000767 

104642 
000747 



I "TASK" 

I AUXILIARY PROCESSOR FOR INPUT*OiJTPUT COMMANDS 



005015 

001433 
000210 



TCRLF! 

TASK41 

001344 TASKXI 



TINTRI 



PRINT2, CRLF 

GETC 

50RTJ#ALI5T#ATLIST 

CMPB #210, CHAR 

BLOS TASK4 

FT5 P5 



174166 

000216 
000043 

000015 



TOUOTI 



GETC 




GETLN 




MOV 


AC# FISW 


BR 


TASKX 


MOVB 


(AXOUT)+ # CHAR 


CMPB 


#CR, CHAR 


REQ 


TASKX 


CMPB 


#"•» CHAR 


BEQ 


TA5K4 


PRINTC 





TCRLF21 PRINT2, 00015 

BR TASK4 



IPRINT THIS CODE FOR CR+LF, 

fMOVE TO MFXT CHARACTER 

ITEST FOR SPECIAL CODES CENTRY POIMT) 

fR-PARS AND » WOT VALID HERE | IGNORE 

tCOMMA, SEMI i AND CR WERE TESTED ABOVE 

t RETURN 

I 

JPASS PRECEPT SIGN 

fHEAD FORMAT CONTROL NUMBER 

I SAVE CODE 

ICOMTINUE 

I 

IBYPASS TRACE 

IREAD AND PRINT WITHIN QUOTES 

*C,R,BNORMAL RETURN FROM 'TASK' 

|QUOTE»CAHOMICAli RETURN 

fGO SEE WHETHER THERE IS MORE 

fPRINT MATERIAL, 

IREPEAT 

I 

»#«CR ONLY 

I BUT EXTRA RUB OUT, 



.MAIM, MACYI1, 


,620 19 


FOCGT.002 




1516 




1537 




1518 




1519 




1540 




1541 




1542 




1543 




1544 




1545 




1546 




1547 


007000 


1548 




1549 


007000 


1550 


007010 


1551 


007020 


1552 


0070*0 


1553 


007040 


1554 


007050 


1555 


007060 


1556 




1557 


007070 


1556 


007071 


1559 


007072 


1560 


007073 


1561 


007074 


1562 


007075 


1563 


007076 


1564 


007077 


1565 




1566 


007200 


1667 




156B 




1569 




1570 




1571 


000001 


1572 


000002 


1573 


000003 


1574 


000003 


1575 


000004 


1576 


000005 


1577 


000006 


1578 


000000 


1579 


000000 


1580 




1581 
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^FLOATING POINT HANDLfcR FOR POCAT.-ll 

I EXTERNAL DATA IS {LORD, fcXHjCHCRO) 
I INTERNAL DATA IS (EXP) (HORU MLORDl 
^ARITHMETIC OPERATIONS ARE NUMBERED 0-7| 
fTHE ADDRESSING MODES ARE NUMBERED 45-71 



EMT»007000 

FPGEW.MT+00 
FPADD«EMT+10 
FPSUB»EMT+20 
FPDIV»EMT*30 
FPMUL«EMT+40 
FPPOW«F.MT+50 
FPPUT=EMT+6tf 

FPNOR«EMT+70 

FPINT"EMT*71 

FPSGN*EMT*72 

FPABS«EMT+7 3 

FPNEG»EMT+74 

FREAD»EMT*75 

FPRINT«EMT+76 

FZER*EMT*77 

FCODE«EMT+200 



IOPERATIONS 



fDTVTDE RY ZERO ERROR 

(NEGATIVE POWER ERROR 
IF.XPONENT ERROR 

IFUNCTI0M5 



1100 TO 177 UNUSED 
ICOMPIJTED OPERATION IN AC 



1 201 TO 377 UNUSED 

IPTR»1 
XPTR»2 

INTO"3 
FROM-3 
THR0UGH»4 
IMMED«5 
REL«6 
STACK«0 
DIRECT*0 
t "DIRECT" AND "INDEX" ARE FOLLOWED BY COMMA AND ADDRESS, 



»3PTR 

fAUTO INDEX PTR BY TWO H0RD8, 

I STACK 

f STACK 

»DATA FOLLOWS 

IRELATIVE (ADDR»*,) 

fADDRESSING MODES 

lABSOLUTE (FPAOD + DIRECT, ADDR) CNON-P, I ,C , 3 



.MAIN. 


/ •'Yll. 


620 19. 


MAR*73 13101 


PAGE 38 








vqcgt,® 


i 














1583 
















1594 








fFOCAL* 


■15 FLOATING POl«T HANDLER 


15&5 
















t5fl6 


005472 


0105 46 




FEMTi 


MOV 


%S, 


-CSPl 


1587 


305474 


010446 






MOV 


%4f 


«CSP) 


15*8 


005476 


01034b 






MOV 


%3, 


-CSP1 


1589 


005500 


01T246 






MOV 


%2i 


• (SPl 


1590 


005302 


010146 






MOV 


*1# 


•C5P) 


1591 


005504 


010046 






MOV 


%0» 


*<SP) 


1592 


005506 


016600 


000014 




MOV 


1.4(SP)i 


.TFMp 


1593 


00551? 


116005 


177776 




MOVB 


•2CTEMP),AL 


1394 


0455516 


100001 






BPL 


FPURE 




1595 


005520 


010105 






MOV 


AC, 


AL 


1596 


005522 


110546 




FPUREl 


MOVB 


AL, 


• CSP) 


1597 


00555*4 


S 227 J 6 


000070 




CMP8 


#070, 


PSP 


1598 


005530 


003412 






BLE 


FLTOO 




1599 


005532 


042705 


177770 




BIC 


• »n»» 


AL 


1600 


005536 


116505 


005662 




MOVB 


I«ADDR(AL)#AL 


16511 


005542 


060507 






ADD 


AL, 


PC 


1602 


005544 


112201 




FLTDOil 


MOVB 


{PTR)+, 


AC 


169(3 


005546 


112205 






MOVB 


CPTR5+, 


At 


1604 


005550 


000305 






SWAB 




AL 


1603 


005552 


105005 






CLRB 




AL 


1686 


005554 


011204 






MOV 


PPTR, 


AH 


1607 


005556 


111600 




FfcTDOl 


MOVB 


»SP, 


TEMP 


1608 


005560 


010246 






MOV 


PTR, 


• (SP3 


1609 


005562 


016702 


174032 




MOV 


HORD, 


BH 


1610 


005566 


016703 


174030 




MOV 


LORD, 


BL 


1611 


005572 


105003 






CLRB 




BL 


1612 


005574 


106200 






ASRB 




TEMP 


1613 


005576 


106200 






A3RB 




TEMP 


1614 


005600 


042700 


177761 




BIC 


#177761 


#TEMP 


1615 


005604 


004770 


006126 




JSR 


PC, 


POPADDR(TEMP) 


1616 


005610 


004767 


000222 




JSR 


PC, 


NORF 


1617 


005614 


010367 


174002 




MOV 


BLf 


LORD 


1618 


005620 


010267 


173774 




MOV 


BH, 


HORD 


1619 


003624 


022626 




FLTXi 


CMP 


(SP)+, 


(SP)* 


1628 


005626 


000474 






BR 


PWREGS 




1621 
















1622 

















fSAvF ALL PKG5, 

» 

I 

I 

t 

t 

JPICKUP ADDR OF LOG, AFTER CALL, 

IPTCKUP CODED BSfTE, 

I TEST FOR CALCULATED CODES, 

I YES, USE THOSE INSTEAD, 

fSAVE A COPY OF IT, 

J TEST FOR FUNCTION CALL 

JSKIP ADDRESS FORMATION 

tLEAVE THE ADDRESS MODE BITS, 

tMAKE INDEX FOR ADDRESS FORMATION ROUTINES, 

f SETUP "PTR" AS DATA POINTER, 

J GET THE DATA CAE«AC) 

fLOW ORDER 8 BITS 

ILEFT SHIFT 8 

|HICH ORDER BYTE, 
ILET'S TRY THOSE CODES 
tSAVE POINTER FOR "PUT" 
fSETUP THE FLOATING AC 

»..♦ 

fAGAXN, 

I MAKE AN EVEN TABLE ADDRESS 
f CLEAR LEFT HALF 
»DO THE OPERATION J 
INORMALIZE IT, 
fSAVE RESULTS 

>tt« 

>DUMP THE POINTER AND THE CODES 
f RESTORE REGISTERS AND RETURN 
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16*4 
1625 
1626 
1627 
16?8 
1629 
1630 
1631 
1612 
1633 
U34 
163b 
1636 
1637 

1638 
1639 
164tt 
1641 
1642 
1643 
1644 
164& 
1646 
1647 
1648 
1649 
1650 
1651 
16^2 
1653 
1694 
1655 
1696 
1697 
1658 
1659 
1660 
1661 
1662 
1661 
1664 
166S 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 



005630 
005632 

005634 
005636 
005642 
005644 
005646 
005650 
005652 
005654 
005656 
005660 



005662 
005663 
005664 
005665 
005666 
005667 
005670 
005671 



005672 
005674 
005702 

005704 
005712 
005714 

005716 
008720 
005724 

005726 
005730 
005734 

005736 
005742 

005744 
005746 
005750 



005726 
011600 
010210 
016704 
000303 
110340 
110440 
100001 
005104 
000304 
001762 
104631 



126 
000 
162 
152 
172 
140 
200 
234 



011002 
062766 
000720 

062766 
010002 
000713 

010602 
062702 
000707 

022222 

010266 
000703 

016602 
000700 

061000 
010002 
000751 



173754 



|«FPPUT" 






PUTFl TST 


CSPJ + 




MOV 


9SP, 


TEVP 


MOV 


BH, 


SIKMP 


MOV 


RE, 


AH 


SWAB 


BL 




MOVB 


RL# 


wCTKMPI 


MOVB 


AH* 


w(TEMP) 


BPL 


.+4 




COM 


AH 




SWAP 


AH 




BEG 


FLTX 





ERROR+201+12,+12. 



fADDRESS MODES 

INADDRl .BYTE 
,BYTE 
'BYTE 

Cbyte 
Cbyte 
;byte 
;byte 

.BYTE 



000002 
000004 

000022 

000006 
000022 



EMDIRI 
000016 

000016 EMIHEI 
EMTOl 
EMINDI 



EMTHRI 



EMREL* 



MOV 

ADD 
BR 

ADD 
MOV 
BR 

MOV 
ADD 
8R 

CMP 
MOV 
BR 

MOV 
BR 

ADD 
MOV 
BR 



EMDIR 

FLTDO 

EMIND 

EMTO 

EMTHR 

EMIME 

EMREL 

NOP 



•FLTDU1 
1*FLTD01 
•FLTDOl 
"FLTDOl 
•FLTDOl 
•FLTDOl 
•FLTDOl 
•FLTDOl 



0TEMP, 
FLTDOl 

»4, 

TEMP* 
FLTDOl 



PTR 
16(SP) 



16CSP) 
PTR 



SP, PTR 
#22, PTR 

FLTDOl 

CPTR)+# (PTR1+ 
PTR, 6CSP) 
FLTDOl 

22(SP), PTR 
FLTDOl 

fTEMP, TEMP 
TEMP* PTR 

EMDIR+2 



»I(JNOrtF RETURM FRO" THIS ONE. 

|GET THE POINTER B ft CK 

>SAVE HIGH ORDER PART 

tCOPY "(BE)" FOH SAVE AND TESTS, 

yPOSITION LOt' ORDER BYTES, 

It** 

fSAVE HALF OF EXPONENT, 
I TEST FOR ALL SIGN BITS, 

ICHECK HIGH ORDER EXP, 

»OK«RETURM 

jNOaEXP OVER 38J 



ADDRESS FOLLOWS. 

»PTR'« CONTAINS ADDRESS, 

CCPTR5+4) IS THE ADDRESS . 

STACK HAS DATA 

STACK HAS ADDRESS 

DATA FOLLOWS 

C(TEMPJ) IS ADDRESS ■ (TEMP) 

BYTES ABOVE MUST BE LESS THAN 177, 

TO THE PCI AND PICKUP "X" 
MOVE PCI POINTER PAST DATA, 
RETURN TO HANDLER, 

THEN 

COPY ADDRESS OF DATA, 

INDEX THROUGH THE STACK, 

INDEXES THROUGH THE STACK, 
MOVE POINTER TO JOB, 
GO USE IT, 

AUTO INDEX THE POINTER 
COPY AND UPDATE PTR, 
CONTINUE, 

USE J*& AS THE ADDRESS, 
CONTINUE 

COMPUTE ABSOLUTE ADDRESS, 
USE THAT RESULT, 
GO >«OVE PC, 



FOCGT 



\( 
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1676 
1677 
1678 
1*79 

168 3 
1682 
1683 
1684 
1685 
16«6 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
17P2 
1?03 
1704 
1705 
1706 
1707 
17«8 



005752 
005756 
005760 
005762 
005764 
005766 
0*35770 
005772 
005774 
006000 



006022 
006024 



00«fc? 1 
0! :i4fr 
01^446 
010346 
010246 
010146 
010046 
010667 
000000 



006002 016706 

006006 005067 

006012 012737 

006020 012600 



012601 
012602 



006026 012603 

006030 012604 

006032 012605 

006034 000002 



nf •? 



173640 



173632 
173626 

000101 



177560 



iPO^Rp-FAlT. 






pwpowni tst 


WHOOPS 




BNF 


PrtRUP 




MOV 


%5, 


*(SP1 


VOV 


%4, 


»(5P) 


MOV 


%3, 


s(SP) 


MOV 


%2, 


»C5P) 


VOV 


%1, 


• CSP) 


MOV 


%0# 


-(Si') 


MOV 


5P, 


WHOOPS 


MOP J HALT 







pwrupi 


MOV 


WHOOPS, 


SP 




CLP 


WHOOPS 






MOV 


»101# 


MTKg 


PWREGSl 


MOV 


CSP)+, 


%0 




MOV 


CSP)*, 


%1 




MOV 


cap)*, 


%2 




MOV 


(SP)*, 


%3 




MOV 


CSP)*, 


%4 




MOV 


CSP)+, 


%b 


PWRONi 


PTI 







fCHECK FOB POWER-FAIL OR AUTORESTART, 

I IF NON«7,ERO, THEN IT IS PQWER*UP, 

\ 

jSAVF 0»S, 

I 

I 

I 

) 

fFINALLY SAVF THE STACK POINTER HIMSELF,** 

fSTOP THF PROCESS j FALL-THROUGH FOR FAILSAFE, 



»AUTO«RESTART 

fRELOAO THF STACK POINTER 

I RESET THE SWITCH 

^RESTORE INTERRUPT ENABLE AND SET RF.ADER RUiw 

I 

I 

» 

I 

t 

PRESUME PROCESS AND RESTORE THE STATUS, 

fFOR DEBUGGING WITH SINGLE STEP, (NOT REENTRANT) 

I TST (SP)* t MOVE POINTER 

» MOV (SP)*, STATUS pRESTQRE STATUS 

» MOV »6(SP), PC pLET THIS INST BE EXECUTED, THEN TRAP, 
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1710 








1711 








1712 








1713 


006016 


P05702 




1714 


006040 


001002 




1715 


006042 


005703 




1716 


006044 


001452 




1717 


006046 


005367 


173544 


1718 


006052 


006303 




1719 


006054 


006102 




1720 


006056 


102405 




1721 


006060 


100372 




1722 


006062 


032702 


077777 


1723 


006066 


001367 




1724 


006070 


000261 




1725 


006072 


006002 




1726 


006074 


006003 




1727 


006076 


005267 


173514 


1728 


006J02 


062703 


000200 


1729 


006106 


005502 




1730 


006110 


102770 




1711 


006112 


000207 




1712 








1733 


006114 


010167 


173476 


1734 


006120 


010402 




1735 


006122 


010503 




1736 


006124 


000207 





» NORMALIZE RFSULT AFTER DOING AN OPERATION, 



NORFl 



WOPM2! 



NORMDt 



GETFl 



TST 




BH 


BNE 




NORM2 


TST 




*L 


BED 




NORM 7 


DEC 




BE 


ftSL 




BL 


ROL 




BH 


RVS 




MORMD 


BPL 




NORM2 


BIT 


#77777, 


BH 


BNE 




NORM? 


SEC 






ROR 




BH 


ROR 




BL 


INC 




BE 


ADD 


#200* 


BL 


ADC 




BH 


BVS 


NORMD 




RTS 




PC 


MOV 


AC, 


BE 


MOV 


AH, 


BH 


MOV 


AL, 


BL 


RTS 




PC 



fTEST FOR ZERO 
? OBVIOUSLY THERE 
ICHECK LOa PART, 
| RESULT IS ZF.KOJ 
fROTATF LEFT FOR 



SO StiTf'T 



THF 



2-DONE 



TEST 
CASFSi 



|TAKE CAPE OF 

I0.1XXX |V»1 

>1,0XXX |V«1 

10,0 TEST 

11,100, XXX»? 

|NOl 

fYES-NEG, POWER OF 2 

tRESTORE Tft PROPER PLACES, 

I * • t 

fROUWD 



jRFTURN 

ICOPY THE OPERAND, 



,MATN, 
FOCGT 



:<' 



'¥11,620 19..MAR-73 13101 PAGE 42 



1718 
1719 
174P 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
17«3 
1754 
1755 
1756 
1757 
1758 
175« 
1760 
1761 
1762 
1763 
1764 
1765 
1766 



006126 P06114 

2 06130 006230 

006132 006222 

006134 006S66 

006136 006426 

006140 006650 

006142 005630 

006144 0062K4 

006146 006366 

006150 006330 

006152 006532 

006154 006556 

006156 006562 

006160 007542 

006162 007012 

006164 006356 

006166 062706 000006 

006172 005067 173420 

006176 005002 

006200 005003 

006202 000207 

006204 116601 000004 

006210 042701 177770 

006214 006301 

006216 000171 006146 



OPADDHf 


GETK 

ADDFK 

SUBFF 

PIVFF 

WUI.FF 

POWF 

PUTF 

NQRX 




FMAODRl 


TNTY 

INTF 

SGVT 

ABSFF 

MEGFF 

RKADF 

PRtfTF 

INTZ 




MUT.Zi 


ADD 


#6, 5P 


NORMZI 


CtR 


BE 




CLF 


BH 




CLR 


BL 




RTS 


PC 


WORXl 


feQVB 


4CSP), AC 




BIC 


i*10# AC 




J*5L 


AC 




JMP 


»FNADDR(AC3 



IFI.1OATINC POTVT fiPFRATOR HAKHLERS, 



f FLOATING POINT FUNCTION HANDLERS 



1DUMP »5IGN*C0UNT*0LD RETURN', 



I LOOK WHQ«S HERE I 

I USE FUNCTION CODES TO 

fFORM WORD ADDRESS IV TAELF. AND 

lJUMP TO THE -FUNCTION PROCESSES, 
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1768 






1769 






1770 






1771 


0v)62?2 


00S4E4 


1772 


006224 


00540b 


1773 


0^6226 


005604 


17^4 






17?S 






1776 






1777 






1778 






1779 






1780 






1781 






1782 






1783 






1784 






1785 






1786 






1787 






1788 






1789 


0062)0 


005704 


1790 


0062S2 


001455 


1791 


006234 


005702 


1792 


006236 


001726 


1793 


006240 


012700 001616 


1794 


006244 


161001 


1795 


006246 


003410 


1796 


006250 


022701 000036 


1797 


006254 


003423 


1798 


006256 


006202 


1799 


006260 


006003 


1800 


006262 


005210 


1801 


006264 


005301 


18(92 


006266 


003373 


180) 


006270 


022701 17774) 


1804 


006274 


002104 


1806 


006276 


006204 


1806 


006300 


006005 


1807 


006302 


005201 


1808 


006304 


003774 


1809 


006306 


006202 


1810 


006310 


006003 


1811 


006312 


005210 


1812 


006314 


060503 


1813 


006316 


005502 


1814 


006320 


060402 


1818 


006322 


000471 


1816 






1817 


006324 


060110 


1818 


006326 


000674 



tFUNtVAMEVTAL FLOATING POINT ROUTINES 



SUBFFI 


NEC 


AH 




NF.G 


AL 




SBC 


AH 



? SUBTRACT hO¥ ORHtR , 
I SUBTRACT LOW CARRY, 
fKINlSH U/p OVERFLOW CHECK 



? ALIGN AND ADD ROUTINE 



lIF A«0 , USE B 

I IK B«0 , USE A 

iSET AC"X C A ) *X(B ) 

I IF JXCA)»XCB31>30,, U5F. LARGER OF XCA) OR X(B5 

fSET A»A/2 

|SET B»B/2 <•■ 

tIF AC»0, GO ADD . 

|IF AO0i SET AC"AC*U #•, 

lIF AC<0, SET AC«AC*1> A»A/2» 



ADDFFI 


TST 


AH 






DEO 


INTY 






TST 


BH 






BEQ 


GETF 






MOV 


#BE, 


TEMP 




SUB 


PTFMPi 


AC 




BLF, 




ALIGNA 




CMP 


• 30, t 


AC 




BLE 




ALTAKA 


ALlGNBl 


ASF 




BH 




ROR 




BL 




INC 




8TEMP 




DEC 




AC 




BGT 




ALIGNB 


ALIGNAl 


CMP 


•*29tf 


AC 




BCE 




ALGZA 




ASP 




AH 




ROB 




AL 




INC 




AC 




BLE 




,*6 




AS* 




BH 




POP 




BL 




INC 




8TEMP 




ADD 


AL, 


BL 




ADC 




BH 




ADD 


AH # 


BH 




BR 


ALGZA 




ALTAKAl 


ADD 


AC, 


8TFMP 




BR 


GETF+4 





fTFST FOR A«0 

fUSE B 

fTEST FOR B«0 

I USE A 

fCREATE EXP, POINTER, 

fCOMPARE EXPONENTS 

|AND SAVE COUNT, 

fTEST FOR POSSIBILITY THAT 

|A IS TOO LARGE "USE A, 

ISHIFT DOUBLE B TO 

|THE RIGHT AND ADD TO 

I THE EXPONENT 

ICOUNT THE SHIFTS 

»TEST TOR REPEAT (AO0) 

I TEST RELATIVE SIZE 

>B IS TOO LARGE ■ EFFECTIVE ZERO A, 

I SHIFT OVER 

ICOUNT SHirTS 

IREPEAT UNTIL EXTRA 1 PONE, 

IGIVE AN EXTRA SHIFT 

I TO THE RESULT TO 

I AVOID OVERFLOW, BUMP THE EXP, 

I LEAVE RESULT IN B, 

|ADD THE LOW ORDER CARRY 

fFINISH w/O OVERFLOW CHECK 

j RETURN FOR NORM, ETC, OF SMALL OIFKERENCES, 

> 

ICORRECT THE EXPONENT 

|GO COPY THE DATA 



.MATW, 


i *YM : , 


,620 19« 


•MAR»73 13101 
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FOCGT.IZ 


K 














1820 
















1821 
















1822 








»tpivt 


CRE,BH, 


iBL5a> (31 


.,BH) 


1R23 
















1824 


006330 


012701 


fci;i6«a 


IHTKj 


MOV 


#BE # 


AC 


1825 


006334 


005711 






TST 




aAC 


18 26 


006336 


003407 






BLE 




T&TZ 


1827 


006340 


022711 


000037 


INTGl 


CMP 


• 31, # 


PAC 


1828 


006344 


003406 






BLE 




TNTX 


1829 


006346 


006202 






ASR 




Bh 


18 30 


006350 


006003 






POR 




BL 


1831 


006352 


0052U 






INC 




8AC 


1812 


006354 


000771 






BR 




TNTG 


1833 
















1834 


0063S6 


004767 


177610 


INTZl 


JSR 


PC, 


MORME 


1835 


006362 


010366 


000010 


IHTXl 


MOV 


BL, 


8.CSP) 


1836 


006366 


000207 




INTYi 


RTS 




PC 


1837 








1 








1838 


006370 


062706 


000012 


ZERODMi 


ADD 


#12* 


SP 


1839 


006374 


000611 






BR 


PWRE6S 




1840 
















1841 


006376 


007073 




XABSi 


FPABS 






1842 


006400 


000207 






RTS 


PC 




1843 
















1844 


006402 


007072 




XSGN I 


FPSGN 






1848 


006404 


000207 






RTS 


PC 




1846 
















1847 


006406 


016746 


173206 


XITRl 


MOV 


HORDi 


*CSP5 


1848 


006412 


007073 






FPABS 






1849 


006414 


007071 






FPINT 






18S0 


006416 


005726 






TST 


tSP) + 




1881 


006420 


100001 






BPL 


.♦4 




18S2 


006422 


007074 






FPNE6 






1893 


006424 


000207 






RTS 


PC 





I CREATE EXP, POI*'TEK 

> MAKES 8 IVtc A.'* 

I INTEGER BUT LEAVES 

|THE EXPONENT CORRECT, 

|NO CHANGE POSSIBLE »OW, 

IBRING IN SIGN BIT LFFT, 

» ROTATE DP UNTIL 

fTHE EXPONENT CONTAINS 

Ml DECIMAL, 

I 

fLEAVE ZERO RESULT 

fCOpy l!v?TO THE COPY OF "AC" 

I RETURN ONE MORE LEVEL 

fDUMP »BHI,'R5», »R5», »PTRl, AND 'CODES', 
I GO RESTORE REGISTERS, 

\ SIMPLE CALLS FOR SIMPLE FUNCTIONS 



jSAVE SIGN 
JABS, 



'.MATS, MACYU.620 



1855 
1856 
1857 
1858 
1849 
I860 
1861 

1862 006426 

1863 006432 

1864 006434 

1865 006436 

1866 006440 

1867 006442 

1868 006444 

1869 006446 

1870 006450 

1871 006452 

1872 006454 

1873 006456 

1874 006460 
1B75 006462 

1876 006464 

1877 006466 

1878 006470 

1879 006472 

1880 006474 

1881 006476 

1882 006502 

1883 006504 

1884 006506 
1685 006510 

1886 006512 

1887 006514 

1888 406516 

1889 006520 

1890 006522 

1891 006524 

1892 006526 

1893 006530 
1894 

1695 006532 

1896 006534 

1897 006536 
1 8 9i 006544 

1899 006550 

1900 006552 

1901 006554 

1 902 

1903 006556 

1904 006560 

1905 006562 
1906 
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000302 



004767 
001655 
006202 
006003 
103003 
060501 
005500 
060400 
006000 
006001 
005316 
001366 
010002 
010103 
162626 
100003 
005402 
005403 
(7105602 
062703 
005502 
005726 
010305 
010204 
100003 
005404 
005405 
005604 
001002 
000305 
001621 
000207 

010246 
001763 
012767 
012702 
005003 
005716 
000744 



005702 
100363 
004767 177702 



000001 
040000 



JTHE FOLLOWING THREE PAGES CONTAIN 

I «FPMl!l i »,* , FPDIV , S«rPSGNH,»FPNEG","FPABS», AND "FPPO*% 

1(2 WORD)#f2 WORD) MULTIPLY ROUTINE 
lCTEMP,AC#BH # BL)»CAHiAL)»>(0.0#BH#HL| JAH # ALI) 



MUIFFI J3R 
BEG 

MDP0I ASR 
FOR 
BCC 
ADD 
ADC 
ADD 
FOR 
ROR 
DEC 
BNE 

SIGNDI MOV 
MOV 
SUB 
BPL 

NEGXl NEC 
NEG 
SBC 

BDIVXI ADD 
ADC 
TST 

ALGZAI MOV 
MOV 
BPL 
NEG 
NEG 
SBC 

ALGEBt BNE 
SWAB 
BEO 
RTS 



SGSFl 
173052 SGMli 



MOV 

BEO 
MOV 
MOV 

CLR 
TST 
BR 



ABsrri TST 

BPL 
NBGFFI JSR 



PC 



ALi 



AH, 

TEMP 

AC 



TEMP, 
AC, 

(SP)*, 
BDIVX 



lit 

BH 

(SP)* 

BL, 

BH, 

ALGZB 

AH 

AL 

AH 

,♦6 

AL 

NORME 



SIGN 
vtJLii 
BH 
BL 

', + 10 
AC- 
TEMP 
TEMP 



0SP 

MDP0 
BH 
BL 
(SP)* 

BH 
BL 
BH 
BL 



AL 
AH 



PC 



BH, 

ALGZA-2 

61, BE 

#40000, BH 

BL 

8SP 

NEGX"2 



(SP) 



BH 

SGNF«2 

PC, 



NE6X 



ICOMPUTE SIGN OK RESULT AND SAVL, 
fRESULT IS ZERO IF A IS ZERO, 
If* 

|NO CARRYaNO ADD 
fUPDATE THF RESULT 

IPUT IT DOWN ONCE, 

fCOUNT BITS, 

fREPEAT, 

ICOPY THE RESULT, 

fti* 

^RESTORE THE SIGN OF 

»THE RESULT, 

ILEAVE A NEGATIVE RESULT 

1 1 # t 

f • • • 

fROUND 

I* •• 

fDUMP OLD RETURN ADDRESS COR DATA SAVED) 

fCOPY RESULT 

|TO TEST SIZE, 

FTAKE ABSOLUTE VALUE, 

> • 1 1 

I • * • 

ICHECK FOR HIGH ORDER WORD NOT ZERO, 

ICHECK TOR LOW BYTE NOT ZERO, 

fMAKE ALL ZERO RESULT, 

»AND GET BACK TO THIS LEVEL, 

I 

fSAVE HIGH ORDER PART, 

fSIGN OF ZERO IS ZERO, 

fCREATE A FLOATING ONE, 

> » • * 

I... 

ITEST THE SIGN OF STACK FNTRY, 

|GO TEST FOR RESULT, 

> 

fTEST B AND PUT DUMMY ON STACK, 

»GO USE. OTHER BRANCH, 

IDOES NOT RETURN HERFj^UMMY On STACK, 

» 
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1 >CY11, 


620 !9»MAR»73 


FOCGT,| 




190B 






1909 






1910 






1911 






1912 


006566 


0054(*1 


1913 


006570 


0052S1 


1914 


006572 


004767 000136 


1915 






1916 


006576 


00! 421 


1917 


006600 


180503 


1918 


006602 


005602 


1919 


006604 


020204 


1920 


006606 


100403 


1921 


006610 


160402 


1932 


006612 


000261 


1923 


006614 


000403 


1924 


006616 


060503 


1925 


006620 


005502 


1926 


006622 


000241 


1927 


006624 


006101 


1928 


006626 


006100 


1929 


006630 


006303 


1950 


006632 


006102 


1931 


006634 


005316 


1932 


006636 


001360 


1933 


006640 


000707 


1934 






1935 


006642 


104635 


1936 






1937 






1938 






1939 






1948 






1941 






1942 


006644 


006204 


1943 


006646 


005201 


1944 


006650 


022701 000017 


194S 


006694 


103426 


1946 


006656 


001372 


1947 


006660 


010446 


1948 


006662 


100433 


1949 


006664 


001724 


1950 


006666 


010246 


1951 


006670 


001637 


1952 


006672 


016746 172720 


1953 


006676 


010346 


1954 


006700 


012605 


1955 


006702 


012601 


1956 


006704 


012604 


1957 


006706 


005316 


1958 


006710 


001672 


1959 


-09*712 


010446 


I960 


006714 


010146 


1961 


006716 


010346 
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I £4 WQRD)/(2 WOPD) DIVIDE ROUTINE 
»(0,0,BH,BL)/(AH,AL)=> BH,RL| 1 AH, AL J 



DIVFPt 



DIFLi 



MEG 


AC 




INC 


AC 




JSR 


PC, 


SIGN 


BEG 


BIVZFR 




SUB 


AL, 


RL 


SBC 


BH 




CMP 


BH, 


AH 


BMI 


, + 10 




SUB 


AH, 


BH 


SEC 






BR 


'. + 10 




ADD 


AL, 


BL 


ADC 


BH 




CLC 






ROL 




AC 


ROL 




TEMP 


ASL 




BL 


ROL 




BH 


DEC 




|SP 


RNE 


DIFL 




BR 




SIGN 



DlVZERl ERROR+201+14,+14, 

'.EOT 
f INTEGER EXPONENT CALCULATIONS 



POWF1I ASR 

INC 

POWFi CMP 

BLO 
BNE 
MOV 
BMI 

BEG 

MOV 

PONSl BBQ 

MOV 

MOV 

POWOOf MOV 
MOV 
MOV 
DEC 
BEO 
MOV 
MOV 
MOV 



AH 
AC 
#15,, 

FERRO 

POWF1 

AH, 

FERRO 

SQN1 

BH, 

ZERODM 

BE, 

BL, 

CSP)+, 

(SP)+, 

CSP)+, 



AH, 
AC, 
AL, 



AC 



• CSP) 



•CSP) 

• CSP) 

• CSP) 
AL 

AC 

AH 

»SP 

BDIVY 

-CSP) 

•CSP) 

• CSP) 



TAKE DIFFERENCE OF EXPONENTS 

PLUS ONE, 

MAKE SIGN OF RESULT ABS, VAL5, 

ADD TEMP+AC, ADD WITH COUNTER 

DIVIDE BY ZERO! 

USE A TEMPORARY RESULT 

MAKE A TRIAL RUN 

CONTINUE THE ILLUSION 

COMPUTE INTERMEDIATE VALUE, 

BRANCH IF NO«ACTUAL CARRY, 

NO«GO»UPDATE HIGH 

NO»GQ«UPDATE LOW 

SET UP THE CARRY DATE FOR ROTATE 

SKIP 

DUMP TRIAL RESULT+CLEAR CARRY 

ROTATE ALL 

ROTATE ALL 

ROTATE ALL 

ROTATE ALL 

COUNT 

REPEAT THE LOOP 

GO DOCTOR THE SIGN 

DIVISION BY ZERO NOT ALLOWED, 



» REDUCE TO INTEGER 

fCOUNT SHIFTS 

ITEST FOR RANGE Of POWER 

»OUT OF THE RANGE, FRACTIONAL 

I GO TAKE INTEGER PART OF A, 

tSAVE THE COUNT (COULD BE ZERO) 

fTEST FOR NEGATIVE POWER', 

UNITIALIZE MULTIPLICAND TO ONE 

I COPY THE BASE 

I DON'T LET FPMUL SEE ZERO! 

tSAVE EXPONENT OF THE BASE 

UNTO ARGUMENT POSITION 

I RESTORE EXP, OF THE BASE 

«... 

ICOUNT ON THE STACK, 
I FINISHED J 
I SAVE EXP 
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1962 006720 084767 177122 

1963 006724 004767 177476 

1964 006730 000763 
196b 

1966 006732 104637 



PACK 


46-1 












JSR 
JSR 
BR 


PC* 
PC, 


MORM2 
KU!iKF 
POWDO 


FERROl 


EKROR+201+15, 


, + 15. 



fNORMALlZE FOB ACCURACY, 

f MULTIPLY OMCE 

IRFPFAT 

I 

iTrtO LARGE OR NEGATIVE P^'FK! 



'.MAIN, / 

FOCGT.0%, 
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1968 






<969 






197? 






1971 






1972 






197 3 






1974 






1975 


006734 


010246 


1976 


006736 


G0J754 


1977 


006740 


042716 


1978 


006744 


060416 


1979 


006746 


060167 


1980 


006752 


005000 


1911 


006754 


005001 


1982 


006756 


012746 


1993 


006762 


005702 


9984 


006764 


002003 


1985 


006766 


005402 


1986 


006770 


005403 


1987 


006772 


005602 


1988 


006774 


005704 


1989 


006776 


002003 


1990 


007000 


005404 


1991 


007002 


005405 


1992 


007004 


005604 


1993 


007006 


000176 



fCOMPUTt SIGN OF RESULT FOR MUL/HIV, 



fALSO SAVE THAT SIGH ON THE STACK, 



SIGN! 



077777 



172644 



000037 



000004 



MOV 
BEQ 
B1C 
ADD 
ADD 
CLR 
CLR 
MOV 
TST 
BGE 
NEG 
MEG 
SBC 
TST 
BGE 
MEG 
NEG 
SBC 
JMP 



*{8V) 



BH, 

POWS 

»077777,§Sp 



AH, 

AC, 

TEMP 

AC 

131,1 



«SP 
BE 



• CSP) 
BH 

. + 10 

BH 

BL 

BH 

AH 

.♦10 

AH 

AL 

AH 



&4CSP3 



iriNP SIGN OF RESULT 

f RESULT IS ZERO If 3 IS ZERO, 

IAS THE XOR Or ARGUMENT'S 

fSIGNSl 

ICOMPUTE EXPONENT 

(CLEAR THE HIGH SIDE OF MUL-DIV 

ICREATE BIT COUNTER 

tTAKE ABSOLUTE VALUES 

I TAKE ABSOLUTE VALUES 

I NEGATE B 

IMEGATE B 

INEGATE B 

fTEST SECOND ARGUMENT 

ITE5T SECOND ARGUMENT 

f NEGATE A 

I NEGATE A 

I NEGATE A 

I GO BACK 
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199B 








19^6 








1997 








1998 








1999 








2000 








3001 








2002 








2003 








2004 


007012 


005046 




2005 


007014 


012704 


000040 


2006 


007020 


005702 




20*7 


007022 


003004 




2(808 


007024 


001431 




2009 


007026 


007074 




2010 


007030 


062704 


000015 


2011 


007034 


012701 


001616 


2012 


007040 


005216 




2*13 


007042 


021127 


000004 


2014 


007046 


002411 




2015 


007050 


003004 




2016 


007052 


126727 


172543 


2017 


007060 


002413 




2018 


007062 


007045 




2019 


007064 


064375 


063146 


2020 


007070 


000763 




2021 


007072 


005711 




2072 


007074 


003005 




2023 


007076 


005316 




2024 


007100 


007045 




2025 


007102 


000004 


050000 


2026 


007106 


000755 




2027 








2028 


007110 


005046 




2029 


007112 


104604 




2030 


007114 


012702 


001612 


2031 


007120 


012700 


000007 


2032 


007124 


007061 




2033 


007126 


007071 




20)4 


007130 


010146 




2039 


007132 


007074 




2036 


007134 


007011 




2037 


007136 


007040 


007102 


2038 


007142 


005300 




20J9 


007144 


003367 




2040 


007146 


005046 




2041 


007180 


116616 


000036 


2042 


007154 


012746 


177400 


2043 


007160 


007003 




2044 


007162 


00704S 




2045 


007164 


000016 


062000 


2046 


007170 


007071 






K/V f * ' * 


«•»<)£«* 

*.'**»»<»»» 





|»FPRINT" 

^FLOATING POINT OUTPUT CflNVBRBIOM FUNCTION 

» CRE-ENTPANTU 

iFORMAT DATA IS TAKEN FROM "PTR" 

ITHIS PAGE PRODUCES A 7 DIGIT STRING PLUS LEADING SEROS, 



000120 



2048 



PRNTFI 


CLR 


«(SP) 






MOV 


• 40* 


CHAR 




TST 




BH 




BGT 


FLOSGN 






BEQ 


FOG03 






FPNEG 








ADO 


• 15, 


CHAR 


FLOSGNl 


MOV 


ffBE, 


AC 




INC 


•SP 




FOGOll 


CMP 


9 AC, 


14 




BLT 


FOG02 






BGT 


PTEN»2 






CMPB 


1+HORD, 


• 120 




BLT 


FOG03 






FPMUL*IMMED 




PTENl 


S6437S, 


063146 






BR 


FQGOl«2 




FOG02I 


TST 


9AC 






BGT 


FOG03 






DEC 


93P 






FPMUL+IMMED 




TENI 


4,50000 








BR 


FOGOl 




FOG03I 


CLR 
PRINTC 


»(SP) 






MOV 


•FLARG, 


PTR 




MOV 


17., 


TEMP 


FOG04I 


FPPUT*IPTR 






FPINT 








MOV 


AC, 


*CSP5 




FPNEG 








FPADD*IPTR 






FPMUL+DIRECT,TEN 




DEC 


TEMP 






BGT 


F0G04 






CLR 


*CSP) 






MOVB 


36fSP), 


•SP 




MOV 


#177400 


,«(8P) 




FPGET+FROM+STACK 




FPMUL+IMMED 






16,062000 






FPINT 








GLOSE+STACK 




I NO MORE CALLS 


TO FLOAT 





»OPEN PLACE FOR EXPONENT OF TEN, 

pSETUP LEADING SPACE 

ITAKE THE ABSOLUTE VALUE 

fpRINT SPACE FOR POSITIVE NUMBER, 

pPRINT ALL ZEROS 

pNEGATE THE NEGATIVE FLAC 

ICREATE MINUS SIGN 

pCREATE POINTER TO EXPONENT 



I REPEAT 



I TEST RANGE FOP 0»4 
p EXTRA HOLE FOR CARRY, 
IPRINT SIGN, 
ISET TEMPORARY POINTER 
fSETUP 7D COUNTER 
pROUND LSB AND SAVE 
|GET THE DIGIT 
f STACK RESULTS 
tREMOVE THE DIGIT 

PAND DIG OUT THE NEXT DIGIT, 
tCOUNT DIGITS 
I AND TRY AGAIN 

pOPEN SPACE FOR FORMAT DATA (VIA "PTR") 
pGET DECIMAL PART OF %X,0Y, (OLD «PTR«3 
IADD CORRECTION FACTOR, 

pCOMPUTE THE FRACTION 
I SCALE STEP WOS, BY 
li»0' t X2"7 

p RESULT IS IN «AC» 



.MAlM|f 
FOCGT^ 


'<ACY11' ( 


,620 19«MAR«73 








2050 








2051 








2052 








2053 


307174 


?ifc605 




2054 


007176 


1 1A6P3 


£ 4P9 35 


2055 


007202 


016ft.' ! 2 


'.')020 


2056 


007206 


<*?*301 




2017 


0072J0 


r - *,d02 




2058 


007212 


P4P301 




2059 


007214 


005301 




2«»60 


007216 


010104 




2061 


007220 


012700 


000006 


2062 


007224 


020302 




2063 


007226 


002001 




2064 


007230 


005003 




2065 


007232 


005703 




2066 


007234 


001411 




2067 


007236 


060201 




2068 


007240 


020301 




2069 


007242 


002001 




2070 


007244 


010301 




2071 


007246 


020100 




2072 


007250 


002003 




2073 


007252 


010100 




2074 


007254 


002001 




2075 


007256 


00S000 




2076 


007260 


010001 




2077 


007262 


005100 




2078 


007264 


006300 




2079 


007266 


012746 


000016 


2080 


007272 


060516 




2081 


007274 


061600 




2082 








2083 








2084 








2085 


007276 


005215 




2086 


007300 


020500 




2087 


007302 


001002 




2088 


007304 


062715 


000004 


2089 


007310 


022715 


000012 


2090 


007314 


003003 




2091 


007316 


162725 


000012 


2092 


007322 


000765 




2093 


007324 


005725 




2094 


007326 


020S00 




2095 


007330 


001765 




2096 


007132 


021605 




2097 


007334 


003373 




2096 


007336 


001402 




2099 


007340 


005202 




2J00 


007342 


005201 




2101 


007344 


004767 


000006 


2102 


007350 


062706 


000024 


2103 


907354 


000547 
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ICOMPUTE THE L.S.D, POSITION 



TOG I 



TOP I 



TOT I 



TORI 



TOSI 



MOV 


SP, 


R5 


MOVB 


35CSP), 


, F 


MOV 


20CSP) ( 


t E 


CMP 


r, 


AC 


BGT 


,♦6 




MOV 


r, 


AC 


DEC 


AC 




MOV 


AC, 


CHAR 


MOV 


*6, 


P 


CMP 


f, 


E 


BGE 


.♦4 




CLR 


F 




TST 


F 




BEQ 


TOP 




ADD 


E, 


AC 


CMP 


P# 


AC 


BGE 


TOG 




MOV 


r, 


AC 


CMP 


AC, 


P 


BGE 


TOP 




MOV 


AC, 


P 


BGE 


TOP 




clr 


P 




MOV 


P# 


AC 


COM 


P 




A St 


P 




MOV 


116, 


■ (SP) 


ADD 


RS, 


•SP 


ADD 


MP, 


p 


fHE B'.Ci 


,0»» 




INC 


GRS 




CMP 


Rii 


p 


BNE 


TOR 




ADD 


#4, 


9Rg 


CMP 


•«•• 


§RS 


BGT 


TOS 




SUB 


#10, » 


CR5)* 


BR 


TOT 




TST 


CR8)* 




CMP 


R5, 


P 


BEQ 


TOR*4 




CMP 


8SP, 


R5 


BGT 


TOS 




BED 


,+6 




INC 


E 




INC 


AC 




JSR 


PC, 


FPRNT 


ADD 


• 24, 


SP 


BR 


PIG04 





fSTART PCIVTER 

fCOPY TOTAt DIGITS REQUESTED , 

IDIG UP THE NUMRFR OF INTEGER niGITS COMPUTED, 

ICORRECT F^R ILLOGICAL REQUESTS 

|0F DECIMALS > FIELD SIZE, 

tin 

I AC«F«M 

fOSIMG E FOHMAT? 

UNIT, SIX DIGIT OUTPUT, 

t ENOUGH SPACE? 

|SKIP TO YES, 

|NO, USE E FORMAT, 

|ASK QUESTION 

lYES, MOVE AHEAD, AOK, 

|D*E 

|F < D+E? 

|I,E, ENOUGH SPACE? 

IAN* DIGITS VISIBLE? 

IMUST BE LESS THAN SIX, 

I KEEP 6 IK P, 

J YES, ROUND TO D*E 

|¥ES, USE P 

|NO, ROUND LEAD DIGIT, 

fSAVE NO', OF AVAILABLE DIGITS 

jp ■ •(?+!) TO ROUND 

ICOMPUTE WORD INDEX TO *5 ROUND, 

I INDEX FOUND 

ICOMPUTE END ADDRESS 

ICOMPUTE +5 ROUND ADDRESS, 



IPUDGE PACTOR 

I SPECIAL ROUNDUP PACTOR 

I TEST FOR THERE ALREADY 

IROUND BY *4 (DON»T CHANGE THSI TO Si) 

IOVERFLOW CAUSE 

ISKIP IP OK 

ICORRECT FOR OVERFLOW 

|AND CARRY 

IBUMP THE POINTER, 

I TEST FOR ROUNDOFF START 

IGO DO IT, 

| TEST FOR END, 

IREPEAT 

fSKIP IF NO CARRY ONE, 

I UPDATE "E" 

|A*D FIELD SIZE, 

ICALL OUTPUT ROUTINE 

ICORRECT STACK 

I AND RETURN TO TOP LEVEL, 



.MAIM, MACY1 1,620 19»MAR«?3 13101 
FOCGT.002 



PAGE 50 



21*5 






21«6 






21W7 






21*8 


007356 


010300 


21&9 


007360 


001433 


2116? 


007362 


160400 


21U 


007364 


020002 


2112 


007366 


002003 


2113 


007370 


010200 


2114 


007372 


020203 


2115 


007374 


003025 


2116 


007376 


005004 


2117 


007400 


020002 


2118 


007402 


003014 


2119 


007404 


005302 


2120 


007406 


005301 


2121 


007410 


002401 


2122 


007412 


014504 


2123 


007414 


004767 000112 


2124 


007420 


005303 


2125 


007422 


003446 


2126 


007424 


005300 


2127 


007426 


001363 


2128 


007430 


104456 


2129 


007432 


000761 


2110 






2131 


007434 


020027 000001 


2132 


007440 


003765 


2133 


007442 


012704 177760 


2134 


007446 


000762 


2135 







fFIXEO POINT OUTPUT FORMAT 



FPRNTI 


MOV 


F, 


P 




BEQ 


FLOUT 






SUR 


CHAR, 


P 




CMP 


P, 


F 




RGE 


FPRNTP 






MOV 


F, 


P 




CMP 


E, 


F 




BGT 


FLOUT 




FPRWl 


CLR 


CHAR 






CMP 


P, 


F 




BGT 




FTRX 




DEC 


E 






DEC 


AC 






BLT 


LTEERO 






MOV 


•(R5)# 


CHAR 


LTZEROl 


JSR 


PC, 


PRNT1 




DEC 


F 






BLE 


DXIT 






DEC 


P 






BNE 


FPRNTP 






PRINT* 


«. 






BR 


FPRNTP 




FTRYl 


CMP 


P# 


#1 




BLE 


LTZERO 






MOV 


I40«60| 


CHAR 




BR 


LTZERO 





USE LARGER OK F«D OR F 

TEST FOR FLOATING poivj FORMAT 

COMPUTE INTEGER PLACES REOUESTED 

FORMAT OK? 

YES, GO DO IT, 

SHIFT DFCTMAL POINT RIGHT 

BUT NOT TOO FAR I 

GO USE H E» FORMAT ANYWAY, 



TEST DISTANCE TO DOT, 

GO LINE UP A DIGIT 

COUNT DOWV INTEGER DIGITS 

COUMT DOWN STRING DATA, 

PRINT TRAILING ZERO 

GET AN ACTUAL DIGIT 

OR A PEAL DIGIT, 

COUNT DOWN THE FIELO, 

BRANCH IF END OF DATA FORMAT, 

COUMT DOW DISTANCE TO DOT, 

THERE YET? 

YES 

CONTINUE 

PRINT AT LEAST 

OR*A LEADING SPACE 
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2137 








2118 








9119 


007450 


010246 




2140 


007452 


0050F2 




z\n 


00*7454 


012700 


,. -3001 


2142 


007460 


017703 


000007 


2143 


007464 


004"?67 


177706 


2144 


007470 


104505 




2145 


007472 


"12602 




2146 


007474 


,102003 




2147 


007476 


005402 




2148 


007500 


104455 




2149 


007502 


000401 




2150 


007504 


104453 




58151 


007506 


104644 


000144 


2152 


007512 


120427 


000060 


2153 


007516 


001401 




2154 


007520 


104604 




2155 


007522 


104644 


000012 


2156 


00T526 


104604 




2157 


007530 


010204 




2158 


007532 


062704 


000060 


2159 


007536 


104604 




2160 


007540 


000207 




2161 








2162 








2163 








2164 
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^FLOATING POINT OUTPUT FORMAT 



FLOUT I 


MOV 


F, 


• CSP1 




CLR 


F, 






MOV 


#t, 


P 




VOV 


#7, 


F 




JSP 


PC, 


FPPNTP 




PRINT+ 


«E 






MOV 


CSP)+, 


PTR 


PRNTSj 


BGF 


PRVTP»2 






NKG 




PTR 




PRINT* 


i* 






BR 


PRNTP 






PRINT* 


'♦ 




PRNTPt 


DIGTST, 


100, 






CMPB 


CHAR, 


#60 




BEG 


PRNT2 






PRINTC 






PRNT21 


DIGTST, 
PRINTC 


10, 






MOV 


PTR, 


CHAR 


PRNTlt 


ADD 
PRINTC 


160, 


CHAR 


DXlTi 


POPJ 







I SAVE POWER OF TEN FOR LATER, 
?0,XXXX 

I FIELD SIZE 

tPRINT FIRST DTGTT GROUP 

|E+«XXX 

fLOOK AT EXPONENT AGAIN 

I CO PRINT SIGN, 

iCORRECT E TO ABSOLUTE VALUE 

jPRIVT SIGN, 

I FALL INTO DIGIT PRINT ROUTINE, 

ft*, 

IPRINT 2 OR 1 DIGITS 

!■•• 

f IGNORE FIRST ZERO, 

IPRINT 2 DIGITS FOR SURE 

tPRINT LAST DIGIT 

>t.. 

!••• 

I AND RETURN, 



I END OF OUTPUT CONVERSION ROUTINES 
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2166 








21*7 








21*8 








?1*9 








2170 








2171 








2172 








2173 


807542 


016603 


000014 


2174 


007546 


004767 


000110 


2175 


007552 


005002 




217* 


007554 


120427 


000056 


2177 


007560 


001002 




2178 


007562 


004767 


000134 


2179 


007566 


010246 




2180 








2181 


007370 


132767 


000020 


2102 


007576 


001417 




2183 


007600 


120427 


000103 


2184 


007604 


001014 




218B 


007606 


007060 


001612 


2186 


007612 


104614 




2187 


007614 


004767 


000062 


2188 


007620 


005701 




2189 


007622 


100401 




2190 


007624 


007074 




2191 


007626 


007071 




2192 


007630 


060116 




2193 


007632 


007000 


001612 


2194 


007636 


012702 


007064 


2195 


007642 


012601 




2196 


007644 


100003 




2197 


007646 


003401 




2198 


007650 


012702 


007102 


2199 


007634 


003301 




2200 


007656 


002402 




22«1 


007660 


007041 




2202 
2203 
2204 


007662 


000774 




007664 


010466 


000016 


220S 








2206 


007670 


010366 


000014 


2207 


007674 


00S726 




2208 


007676 


000167 


173722 


2209 








2210 









j»FREAD" 

|FL0ATING POINT INPUT COVVFRSION FUNCTION 
f CFEpENTRAVTI 



READFl 



r ico ii 



172033 



FIG02I 

F I GOBI 

FIGOSl 
FIG04I 



MOV 

JSP 

CLR 

CMPB 

BNE 

JSP 

MOV 



14fSP), 
PC, 
PTR 
CHAR, 

PC, 
PTR, 



AXOUT 
DECONV 

FIGOI 
DfcCONl 
• CSP5 



BlTB »NALPHA, SWITCH 

BEO FIG02 

CMPB CHAR, #'F 

BNE FIG02 

FPPUT+DIRECT, FLARG 

GETC 



JSR 

T5T 

BMI 

FPNEG 

FPINT 

ADD 



PC, 

AC 

.+4 



AC, 



FPGET*DIRECT, 



MOV 
MOV 
BPL 
NE6 

MOV 

DEC 
BLT 



#PTEN, 

(SP)*# 

riGOE 
AC 

• TEN* 
AC 
FXG03 



OECONV 



8SP 

FLARG 

PTR 

AC 



PTR 



FPMUL*IPTR 
BR FIGOE 



MOV 

MOV 
T6T 
JMP 



CHAR* 

AXOUT # 

CSP>* 

FLTX 



imp) 

14C&P) 



f(THTS CODE IS NOT REENTRANT J ) 

ICONNECT FIRST DIGIT GROUP 

ISTART FRACTION COUNTER, 

|DID IT FMH IN PCPIOn? 

|NOf GO FINISH THE ANSWER 

fCOUNT DIGITS AND APPEND RESULT, 

fOPEN SPACE ON THE STACK 

IFOR NO, OF DEC, DIGITS, 

IFROM GETTjN? 

IYES, LEAVE 

1DID IT END WITH "E w ? 

(NO, GO EXIT 

IYES, SAVE PRESENT RESULT 

I READ ON PAST THE 'E', 

fREAD EXPONENT 

fCORRECT FOR SIGN OF EXPONENT, 

lin 
f ••• 

|MAKE AN INTEGER IN • AC • 

ISAVE EXPONENT AND USE AS COUNTER 

fRECOVER VALUE OF DECIMAL FRACTION 

UNITIALIZE CORRECTION POINTER 

fTF.ST THE SIGN OF THE EXPONENT 

|IF •, CORRECT BY *,10 

ITAKE A8S, VAL, OF THE EXP COUNT, 

flF *, CORRECT BY #10, 

I DO THE CORRECTION, 

I LEAVE WHEN FINISHED, 

fCORRECT FLAC VIA POINTER ON THE STACK, 

f REPEAT UNTILL EXPONENT COMPLETED, 

I 

f INTERNAL DATA«YES, 

ICOPY TERMINATING CHARACTER, 

ICOPY TEXT POINTER 

» LEAVE VALUE 

ITO BE RESTORED AT "PWREGS" 



FOCGT^ 


'<ACYll'. 


620 19« 


»MAR«73 
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2212 
















2213 








f CONVERT A GROUP OF NUMBERS. 


2214 
















2215 


00770 2 


0JT7377 




DFICONVt 


FZER 






2216 


007704 


12-'4?7 


' .-=,- 3i 




CMPB 


CHARf 


#201 


2217 


00771? 


0014*4 






BEG 




DECONl 


2218 


007712 


12^427 


000202 




CMPB 


CHAR, 


#202 


2219 


007716 


K* 100 2 






RNE 




DECONl+2 


2220 


007720 


005101 






COM 




AC 


2221 


007722 


104614 




OECONlt 


GETC 






2222 


007724 


105704 






TSTB 




CHAR 


2223 


007726 


100704 






BMI 




DXJT 


2224 


007730 


120427 


000056 




CMPB 


CHAR, 


* ft . 


2225 


007734 


001701 






PEQ 




dxit 


2226 


007736 


104654 


010006 




SKPNON* 


DETN 




2227 


007742 


132767 


000020 


171661 


BITB 


ISAtiPHA 


^SWITCH 


2228 


007750 


001673 






BE8 


nxiT 




2229 


007752 


120427 


000105 




CMPB 


CHAR, 


#'F 


2230 


007756 


001670 






BEQ 


DXIT 




2231 


007760 


042704 


177740 




BIC 


»«40# 


CHAR 


2232 


007764 


010446 




DECOY! 


MOV 


CHAR, 


• CSP) 


2233 


007766 


012746 


000017 




MOV 


#15,. 


• CSP) 


2234 


007772 


007040 


007102 




FPMUL+DIRECT* 


TEN 


2235 


007776 


007013 






FPADD+FRQM>STACK 


2236 


010000 


022626 






CLOSE*STACK 




2237 


0100*2 


005202 




DECON2I 


INC 




PTR 


2238 


010004 


000746 






BR 


DECON1 




2239 
















2240 


010006 


042704 


177760 


OETNl 


BIC 


#«20, 


CHAR 




010012 


001364 






BNE 




DECOY 


22*2 


010014 


007040 


007102 




FPMUL+DIRECT#TEN 


2243 


010020 


000770 






BR 


DECOH2 





jCLEAR INITIAL VALUE A«D 'AC 

f+? 

I YES 

!*? 

|NO 

fYES-KEVERSE SIGN 

I GET NEXT CHARACTER 

fCHAR FOR 'TERMS' 

ILEAVE 0* THE TERMINATOR 

fTEST FOR GROUP TERMINATOR 

fAND LEAVE IF FOUND 

tCHECK FOR NUMBER 

fTEST FOR ALPHA AS TERM, 

|CI-EAR«YES, IF si THEM CAN'T BE E*FORMAT EITHF ! 

ICHECK FOR SPECIAL FORMAT 

If tt 

fCLEAR HIGH ORDER BITS OF "A^Z" ASCII CODES, 

tSAVE THIS DIGIT ON STACK 

pLOAD INTEGER EXPONENT ONTO STACK 

fMULTIPLY PRESENT VALUE BY 10 

»ADD IN V£W MGIT 
fREMOVE ARG, FROM STACK, 
fCOUWT DIGITS 
»GO BACK FOR MORE, 
I 

IUSE BCD PART OF ASCII NUMBER, 
• GO USE THE DIGIT IF NON-ZERO, 

? UPDATE PRESENT VALUE 
I REPEAT, 
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2245 
2246 








| H I H C. H " 


AND "OUTCH" 








2247 




















2248 








IUSIWG 


ITNDFV' 


AMD OUTDKV' FOR 


B^BTT J 


t/O, 


2249 




















2250 


010022 


016704 


171604 


XI33l 


MOV 


INDEV, 


CHAH 




j END BUFFER TO POINTER 


2251 


010026 


022704 


177560 




r.np 


tTKS, 


CHAR 




fTEST FOR DEVICE 


2252 


010032 


001420 






REG 


KITH 






tLOfc SPEED 


2253 


010034 


105714 






TSTB 


3CHAR 






fWAlT FOR FLAG 


2254 


010016 


100376 






BPL 


.-2 






IWAIT FOR KEYBOARD DONE FLAG 


2255 


010040 


116404 


000002 




MOVB 


2CCHAR) 


,CHAR 




fSAVE INPUT BUFFER 


2256 


010044 


005277 


171562 


X13JXI 


INC 


8INDEV 






(REQUEST NEXT 


2257 


010050 


000205 






RTS 


R5 






fRETURN FROM I/O DEVICE ROUTINE, 


2258 




















2259 


010052 


010446 




XOUTI 


MOV 


CHAR# 


«CSP) 




ISAVE DATA 


22*0 


010054 


016704 


171554 




MOV 


OUTDEV, 


CHAR 




|LOAD POINTER 


2261 


010060 


105714 






TSTB 


iCHAR 






|TEST FLAG 


22*2 


010062 


100376 






BPL 


• •2 






|WAIT 


22*3 


010064 


111664 


000002 




MOVB 


8SP, 


2CCHAR5 




fOUTPUT DATA 


2264 


010070 


012604 






MOV 


CSP)+, 


CHAR 




(RESET CHARACTER 


2265 


010072 


000205 






RTS 


R5 






fRETURN 


2266 




















2267 




















2268 








PTHIS KEYBOARD 


CONTROL 


18 ASYNCHRONOUS 


2269 




















2270 


010074 


016704 


171536 


KlTHi 


MOV 


KIN, 


CHAR 




ITEST FOR DATA READY, 


2271 


010100 


100775 






§MI 


KITH 






fWAIT FOR INTERRUPT DONE 


2?72 


010102 


005167 


171530 




COM 


KIN 






I RESET 


2273 


010106 


000756 






BR 


XI33X 






»RETURN 


2274 
2?7B 
2276 

2277 








fKEYBOARD INTERRUPT HANOLSR 






010110 


013746 


177562 


KIMTI 


MOV 


$#TKB>2 


# «C8p) 






2278 


010114 


121627 


000203 




CMPB 


•8P, 


#203 


ITEST 


FOR CONTROK 


2279 


010120 


001004 






BNE 


KINT1 




INO 




2280 


010122 


105167 


171453 




COMB 


ccflc 




>YE3, 


CHANGE DATE 


2281 


010126 


001003 






BNE 


KINT2 




»TwOf 




2282 


010130 


104601 






ERROR+20l+0 a +0» 




I YES 




2283 


010132 


10S067 


171443 


KIWT1I 


CLRB 


eerbe 








2284 


010136 


00S767 


171474 


K JEW * c ■ 


TST 


KIN 






lANY ROOM? 


228B 


010142 


100401 






BMT 


i*4 






tYES 


2286 


010144 


104645 






ERROR*2fl + 18, + ll' a 




» INPUT BUFFER OVERFLOW, 


2287 


010146 


012667 


171464 




MOV 


UP)*, KIN 




fREAD DATAf CLEAR INTERRUPT DONE 


2288 


010152 


000002 






RTI 








(CONTINUE 



aiN, 


/ 'YU. 


620 J9« 


rMAR«73 13101 


yrtT.G 


A 






22<>0 








?.?.Q\ 








2292 








22*3 


01015 4 


<* 12705 


'' -* 1 6 1 f? 


??<»A 


010150 


0127 2 


&■/:..?■<■ . 


2295 


010164 


011 246 




7296 


010166 


100801 




2797 


010170 


10464 i 




7798 


010172 


0<?1 4>?7 




2299 


010174 


014246 




2300 


010176 


106212 




2301 


01020? 


105512 




2302 


tUf*202 


012762 


060320 000002 


73*3 


01021? 


007003 




2304 


01021? 


007031 




7305 


010214 


00701 1 




2 3P»«> 


W1021.fi 


005315 




7307 


01022^' 


121215 




2308 


01^222 


001010 




23*9 


010224 


026267 


000002 171366 


2310 


010232 


001004 




2311 


010234 


126267 


000001 171361 


2312 


010242 


103002 




2313 


010244 


007061 




2314 


010246 


000760 




2315 


010250 


005726 




2316 


010252 


005726 




2317 


010254 


000207 




2318 








2319 








2320 








2321 








2322 








2323 








2324 








2325 








2326 








2327 


010256 


062767 


000400 000010 


2328 


010264 


005567 


000006 


2329 


010270 


000002 




7330 








2331 








2332 








2333 








2334 








2335 








2336 








2337 


010272 


007005 




2338 


010274 


000427 


010276 


2319 


010300 


7 7 w 




2 3*0 


01030? 


000207 
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fSGUARF ROOT FACTION <OPTTOMAL> 



XSOTI 



?-'0V #BE, P5 

MOV #FLARCI + 2,PTK 

»»0V »PTR# -»(SP) 

PPT- , + 4 



FP.ROP + 20W17,*!?'. 



BEQ 
MOV 
J&SPB 
&DCB 

MOV 



SQUEND 

*CPTR), 

flPTR 

®PTR 

#60320* 



■CSPl 



2CPTR) 



CLOU! 



FPGET*FR0M+5TACK 

FPOJV+tPTR 

TPADn+TPTR 



DEC 
f-MPB 

CMP 

CMPB 
BHIS 



8R5 

BPTR, 

POOTOO 

2CPTR), 

POOTGO 

1CPTR), 

8QX 



0H5 
HOPD 
T.ORD + 1 



ROOTGOf 

SQXI 
SQUEWD I 



FPPUT+IPTR 
BR CLCU 
TST fSP)+ 
TST CSP)+ 
POPJ 



IPOTVT TO FLOATING RESULT 
fPOf'T T* TpVp STORAGE C2 
ISAVE VAT if FOR VfcVrnN'S f 
fTKST FOR 
IMAGINARY ROOTS, 

i arc; and result arf zero, 

jSftVF OTHER BYTE 
IMAKP P\IRST fiPPHnX, 
hn 
fit. 

MAKE SUCCFSS1VF. 
^APPROXIMATIONS, 

I ARF THE EXPONENTS 

J EQUAL? 

?N0, TR¥ AGApJ 

I YES, TEST SOME "ORE 

|N0 

| LAST TEST FOR F5QT<3) 

'mi 

I SAVE MEW ESTIMATE 
I TRY AGAIN 
IREPAIP STACK 

| RETURN 



C3 ^OHDS) 
! *?0P9S) 
■FTHOn 



ICLOCK CONTROLLER (STARTED By FXC-1 , 177546, 192) ) 
»EOVFRHEAD»30,3 USECSJ <OPTlONAL> 



ADD 


#400| 


CLKT 


fCOUMT 1/60 SEC 


ADC 




CLKT*2 


IMILLISEC 


RTT 






ICONTINUE 



ICLOCK TIMF*OE«DAY FUNCTTON IN 60TH5 (OR 50THS) OF A SECOND 
I [OVERFLOW AFTER 12,94 DAYS] 



XFCLKI FPGET+IMWED 
CLKTi 427# 0*. 

FPNOR 

POPJ 



ILOAO TIME 

|TTME*OE»0AY riMPURF-USER TMDEPEWDFM; 

t*-Of<MAMZij: 

jRFTHpM 



.MAIM, 


WACY11. 


628 19- 


MAR-73 


FOCGT.002 






2342 








2343 








7344 








?3Ab 




020724 




2346 








2347 


f*J03M 


0K6301 




2348 


0103&6 


01M02 


167454 


2349 


1 y 1 2 


016112 


167436 


23*0 


010316 


*22712 


177550 


73S1 


010322 


0?10£»4 




2152 


010324 


032732 


004200 


?3«53 


010330 


001001 




2354 


010332 


0052*2 




2355 


01P334 


1046J4 




2356 


010336 


104634 




2357 


010340 


1 04602 


010S52 


2358 


011*346 


000167 


173102 


2359 








2360 








2361 




010352 




23*2 


010352 


045522 


052120 




010360 


110 




2363 


010361 


000 




2344 








2365 








2166 








2367 








2368 




010362 




2369 


010362 


177550 




2370 


010364 


177560 




2371 


010366 


177554 




2372 


010371? 


177564 




2S?5 


010372 


177514 




2374 


010374 


177700 




2375 


010376 


175614 




2376 








2377 








2378 




010400 




2379 


010400 


001632 




23«0 


010402 


001632 




2391 


010404 


001634 




2382 


010406 


001634 




2383 


010410 


001634 




2384 


010412 


001634 




2389 


010414 


001634 




2)96 
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p #OPERATE»aPROGRAMMABLE I/O COMMAND, <OPTIO*AL> 
ZsIOUST+lOMST 



010304 



051514 



IQFlXi 


AST, AC 






MOV TOPATCH-ZC ACT, 


PTR 




MOV IOGO-ZCAC), 


8PTK 




CMP IPRS, 


apTR 




RNF 100 






HIT »4200# 


®(PTR)+ 




rnf toq 






TNC (a-(PTH) 




IOQI 


Gt'TC 




PROGJOl 


SPVOR 

SOP.TC#TOLIST»IOFTX 
JMP PROC 





IMAKF F'VF'V 

fGKT PATCH ADDRKSS 

ISTQRK THfc PATCH 

lH p S t ? 

i mo 

ires, 'rtusY' or 'done'? 

I YES 

jNO, SET READER FNABT.E, 

IL00K AT NEXT TEXT CHAR, 

IGOTO NEXT LFTTFR 

I TEST 

FCOWTI^JUF THE LINE, 



IOUST", 

.ASCII "RKPTLSH" 

.BYTE 

'.EVEV 



IOGOi 



IOPATCHi 



PRS 

TKS 

PP8 

TPS 

IPS 

177700 

175614 



INDEV 

INDEV 

OUTDEV 

OUTDEV 

OUTDEV 

OUTDEV 

OUTDEV 



fUSE %P0 IF USER HAS NO GT40I WRITING IM IT WQM'T HURT 
t ADDRESS OF POP»10 OUTPUT 



)•»*, 



'.MAI*, /' ' 
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2388 
23fl9 

2392 

2193 

2394 

23^5 

2396 

21^7 

23^8 

2399 

2400 

2401 

2402 

24«3 

24*4 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

241.2 

2413 

2414 

2415 

2416 

5*41 7 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2413 

2434 

2435 

2436 

2437 



010416 
010420 
010422 
5510426 
0104 3P 
010432 
&U0434 
010436 
010442 
010444 
010446 
010452 
010454 
010456 
010460 
010462 
010464 
010466 
010470 
010472 
010474 
010500 
010504 
010506 
010512 
010514 
010520 
010524 
010526 
010532 
010534 
010536 
010540 
010542 
010544 
010546 
010550 
010556 



007074 
007015 
166801 
024646 
005PI02 
007063 
007043 
005737 
0(53411 
111602 
112716 
006202 
103401 
106316 
005202 
007003 
007043 
007074 
007063 
007035 
000005 
«0?0!0 
007035 
000004 
007043 
007010 
005337 
007043 
007010 
005302 
002645 
007063 
007043 
007063 
007043 
007023 
062737 
000763 



062207 

001616 
177777 



074000 
010360 

060000 

010560 
001616 

010560 



000003 001616 



010?60 000001 040000 



fFAST SINE, COSINE <0PTIQNAL> 

fSMAT.Ll 51(10) WWDS 

|SINfX)sfOSCPl/2-X) 

lCnSf4X)B8<CnS(X)*4-C05(X)*2>*J 

?COS(X)sl-X*2/2+X*4/24-X*6/7 2a 

r =1-X*2*Cl-X*2/12+X*4/3603/2 

I =!«»y* , 2#Cl-X*2*<l*X*?/30>/12 5/2 

I »!+S*n+S*<l+S/30>/123/2 

KSINi FPNEG 

FPADD+IMMEO 

166001, 62207 
FCOSi OPFN+STACK 

CLP PTR 

FPPUT+tNTG+STACK 

rPVUI.+FROM+STACK 

TST &#BE 

BLT FC0S2 

MOVB £SP, PTR 

MOVB N«l f £SP 

ASP PTR 

BCS t +4 

ASt.B 9SP 

INC PTR 

FPGET+FROM+STACK 

FPMUL+FROM+STACK 
FCOS2I FPKfFG 

FPPUT+INTO+STACK 

FPDIV+IMMED 

5 #74000 

FPADD*DIRECT#FLTONE 

FPDIV+IMMBD 

4,60000 

FPMUL*FROM+$TACK 
FPADD*DIRECT,FLTONE 
DEC MBE 
FPMUL+FROM*STACK 
FCOS4I FPADD+DIRECT»FLTONt 
DEC PTR 
BIT SQX 
FPPUT+INTO+STACK 
FpMUL*FROM*STACK 
FPPUT+INTO+STACK 
FPMUL+FR0M*5TACK 
FPSUB+FROM+STACK 
ADD 13, HB£ 
BR FCOS4 

FLTONE! 1,040000 



lSlNfX)sCQS(PI/2*X) 

J .. . 

!PI/2*1, 57079b 

jUSE STACK AS TEMPORARY STORAGE 
ICLEAR COUNTER 

I SAVE X 

tTAKF X SQUARED, 
fX*2<125? 
I YES 

?COPY EXPONENT OF TWO 
10 IF EVEN 

fFTMD RESULT IF DIVIDED BY FOUR 
|«»1 IF ODD 
»a*2 IF EVEN 
I SET COUNTER 

I COPY RESULT 

|Ss-X*2 



CEXP-2), 



ll< 



I PUT S ON STACK, 
FIRST FRACTION 



fTAKE 
I 30 

fCOMPUTE INNER EXPRESSION 

112 

IFIND ( 5 
tin 
IDIVIDE BY TWO CEXPwi) 

fCOMPUTE LAST OF SERIES 
«... 

fCOUNT "RECURSIONS" 
I LEAVE WHEN DONE, 

IFIND C05*2 

I SAVE CQS*2 

|C0S*4 

fCr>S p 4-»COS*2 

1MULTIPLY BY EIGHT, 

JRFPEAT 

I 

I CONSTANT HE ONE, 
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2439 

2440 

2441 

7&A2 

2441 

2444 

2445 

2446 

2447 ^10564 016705 

244P 010570 009715 

2449 0U'5">2 <^10(*7 

24*0 01P574 ^627P»b 

2451 tfl<*600 020567 

2452 010604 103771 
24«$3 010606 0<?5726 
2454 010610 000207 
2455 

24*6 «^ 3. « 6 1 2 104642 

2457 01^616 112504 

2458 010620 104604 

2459 010622 112504 

2460 010624 100401 

2461 010626 104604 

2462 010630 104450 
24*3 01^632 005725 
2464 010634 001410 
24*5 010636 005745 
2466 010640 112502 
24*7 010642 0047*7 

2468 010646 104454 

2469 01A650 112502 

2470 010652 004767 

2471 010656 104642 

2472 <*10662 010502 

2473 010664 007001 

2474 010666 016702 

2475 <?i«672 007076 

2476 010674 104642 

2477 010700 022525 

2478 010702 000736 



fSYMBOL TAPLF TYPEOUT ROnTINF <OPTI0WAT,> 

I USED BY *T¥PE*ASK* 
fVTA 'ATLIST' 



171056 



000010 
171046 



020123 



176626 



176616 
036451 



170734 



00501S 



TDUMP1 


MOV 


STARTV, 


Rb 


TDU*Pli 


TST 




*R5 




PNE 




TDUMP2 




&DD 


#10i 


Rb 


T0UMP3I 


CMP 


R5, 


BOTTOM 




BLO 


TDUMP1 






TST 


(SP3 + 






POPJ 






TDUMP2I 


PRTKT2# 


«s 






WQVB 


CR5)+# 


THAR 




PRINTC 








MOVB 


(R5)+# 


CHAR 




BMI 


• *4 






PRINTC 








PRTNT+ 


'( 






TST 


CR5) + 






BF.O 


TDUMP4 






TST 


«(R5) 






MOVB 


(R5)+, 


PTR 




.ISP 


PC 


PRNTS 




PRTNT+ 


«» 






MOVB 


CR53+# 


PTR 




JSP. 


PC# 


PRNT8 


TDUKP41 


PRTNT2, 


«)« 






MOV 


R3, 


PTR 




FPGET+IPTR 






MOV 


fisw, 


PTR 




FPRINT 








PRINT2, 


CRLr 






CMP 


crs)*# 


fR5) + 




»R 




TDtlMPl 



I«IT POINTER 

TEST *"0R »!ULL ENTRY 

GO TtfPE NAME, fcJT t 

MOVE POINTER 

TEST LIMITS 

TRY AGATM 

B"Mp STAC* ("TASK" PtTI.'RN) 

LEAVE *TKPE*ASK* 

MAKF COMMANDS! 

REAn FIRST LETTER OF NftMh *i 

AND PRINT SAME 

READ SECOND LETTER 

IGNORE SPACE 

AND PRINT 

OPEN PARENTHESIS 

ALL ZEROS? 

YES 

COPY SUBSCRIPT #1 AND TEST SIGN, 

PRINT SUBSCRIPT DIGITS, 

COMMA 

COPY LEFT-HAND BITS AND 

PRINT SAME 

CLOSE PARE 

COPY POINTER, 

LOAD THE VALUE OF THE VARIABLE 

LOAD FORMAT DATA 

PRINT CONTENT OF FLAC 

PRINT CRLF AT END OF LINE 

MOVE POINTER TO NEXT ENTRY 

CONTINUE THE SCAN 



IAIN, 


^ -yu, 


620 19* 


>MAR»73 


24*0 


\, 






24M 








24*2 








?4«3 








?4P4 








24«b 








24R6 








2487 








24RB 








24ft9 








24*0 








2491 


010704 


012702 


001602 


2492 


010710 


£12705 


000014 


2493 


010714 


085767 


170700 


2494 


010720 


001402 




2495 


01*722 


012712 


107654 


2496 


010726 


011201 




2497 


010730 


006101 




2498 


010732 


100401 




2499 


010734 


005101 




2500 


010736 


006101 




2501 


010740 


006101 




2507 


010742 


006112 




2503 


010744 


005305 




7*>$& 


0107*6 


003367 




2505 


010750 


011267 


170644 


25*6 


015*754 


000207 
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IHANHOM KUMBFR GENERATOR <OPTlONAL> 

|FP.A«C) m A STATISTICALLY RANDOM, PSEUHQwNCISE SHIFT REGISTER 

IWTTH PERIODICITY a 32767(101, 

lAVERAGE e ,00060 

I RANGE a +1 TO ■! 



XRANI 



XROL I 



MOV 


#LSPR# 


PTR 


VOV 


#14, 


H5 


TST 


HORD 




BE© 


XROL 




MOV 


#107654 


,3PTR 


VOV 


SPTR, 


AC 


POL 


AC 




BMT 


,+4 




COM 


AC 




ROL 


AC 




ROL 


AC 




POL 


ftPTR 




DEC 


R5 




BGT 


XROL 




MOV 


SPTR, 


HQRP 


POPJ 







fNOM*ZERO ARGUMENT INITIALIZES 



IXOK BITS 13+14 

| (THANKS JOHN LARKINI) 

JRANGE IS ♦!•'! 
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25<*8 








?5*9 








251P 








351 1 








?512 








3513 








3514 








3515 


01«756 


104660 




2516 


0107*0 


007071 




2517 


010762 


010446 




2518 


010764 


0101P4 




2519 


010766 


100406 




7520 


010770 


104610 




2521 


010772 


012604 




2522 


010774 


12*477 


000214 


2573 


0110<*0 


001766 




7524 


011002 


000207 




2535 








2576 


011.004 


104612 




2577 


011006 


042704 


177400 


2538 


011012 


010467 


170602 


2529 


011016 


012767 


000017 


2530 


011024 


000762 




2551 








2532 








2533 








2534 








2535 








2536 








2537 








2538 








2539 








2540 


011026 


004567 


171460 


2541 


011032 


005000 




25*2 


011034 


004767 


171730 


2543 


011040 


010246 




2544 


011042 


104660 




2545 


011044 


007064 




2546 


011046 


010446 




2547 


011050 


112704 


000216 


2548 


011054 


004767 


173010 


2549 


011060 


012604 




2550 


011062 


012602 




2551 


011064 


007001 




2552 


011066 


000207 





170572 



^CHARACTER I/O F"MCTIQN <UPTTONAL> 

iFCHFC-imaPUT ASCII 

IFCHPCFOO) JOUTP'IT ASCII 

|KCHRC2n#64 + 0A,64 + 0Rf*ni J OUT AMD 1 IN, 



XCMMOI EVAL.X 



XCHPi 


fPTNT 








MOV 


CHAR, 


»CSP5 




MOV 


AC, 


CHAR 




RMI 


XCHR1 






OUTCH 






XCHARGl 


MOV 


(SP)+, 


CHAR 




CMPE 


CHAR, 


#214 




RE.Q 


XCHMO 






POPJ 






XCHRli 


INCH 








BIC 


1*400, 


CHAR 




MOV 


CHAR, 


HORD 




MOV 


• 15,, 


BE 




BR 


XCHARG 





^EXECUTE USER FUNCTIONS!! <OPTIONAL> 

»8ET Z«FSBRCGROUPNO,ARG) 

XFSBRI 



JSP RS, 


GTEST 


CLR TEMP 




JSP PC, 


WHIPV 


MOV PTR, 


• CSP) 


EVAL.X 




FPPUT+THRQUGH+STACK 


MOV CHAR, 


• can 


MOVB ICR, 


CHAR 


JSP PC, 


H0*2 


MOV CSP)+, 


CHAR 


MOV fSP)+, 


PTR 


FPGET+IPTR 




POPJ 





fKOHM IMT OF ARfi, (ENTRY POINT) 

»SAVE NEXT CHARACTER, 

IPREPARE TO PRINT 

|BUT PERHAPS GO READ, 

I OUTPUT 

IRESTORE NEXT CHARACTER 

|ANY MORE? (T,E, COMMA?) 

I YES I 

| RETURN 

I 

fLOOK FOR INPUT 
|8»BIT ASCII 
ISAVE RESULT 
|SET THE EXPONENT 
f,i« 



ILOAD 'LINENO' 

(ZERO SUBSCRIPT 

IPREPARE AMPERSAND 

|SAVE POINTER, 

I SAVE ARG, 

I LOAD ARGUMENT 

ISAVE LAST CHARACTER 

?LOAO HEW TERMINATOR CC.R,}, 

IDO THE SUBROUTINE 

IRESTORE LAST R»PAR, 

|DIG UP POINTER, 

fRETRIEVE RESULT, 

iRETURN, 



focg 
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2554 

2555 
2556 
25*7 
2558 
?569 
25*$* 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 



011070 
01107 2 
011*74 
011076 

(Jliifia 

011 102 
011104 
011110 
01H14 
011116 
011124 
011132 



0&7J971 
«06 3*1 
0061*1 
010146 
174660 
007071 
150166 
012667 
R07077 
016767 
007045 
000207 

176770 
176772 



jA/D CONVERTER FUNCTION FOR ADOl-ll <OPT.TON.AT,> 



I SET XsFADC ( GA I K , CH AN MEL 1 



XAnCf 



000001 
165654 

165650 
000011 



170474 
050000 



FPT r «T 






AST. 


AC 




ROL 


AC 




MOV 


AC, 


«CSP) 


FVAL.X 






P-PTNT 






PI SB 


AC, 


1CSP1 


MOV 


(SPJ+, 


ADC5 


FZFR 






vov 


ADD8, 


HORD 


FPMUL+IMMfcn, 17*6,50000 


popj 







fRKAn 


GAT:y AN 


D 






?loao 


TT I WTO 


THK 


AC 


POSITION 


iff* 

fSAVF 


PESUT.T 








IRE AH 


CHAMWEL 


NUMBER, 




fMAKF 


TT AW TNTt'GF.R, 




fCOMBJ 


:ne THfc; i 


BITS 






jLOA^ 


TtfTO STATUS, 


i 




1 CLE AH 


t 'FLAC 


AND 


DFLAY 


JRFA? 


RESULT, 








ll/l«3 


!.4 








IRESULT IN VOLTS, 







ADCSal76770 
ADPBM76772 
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?5"»f) 








9576 








2577 








?57P 








2579 








25R* 1 








25A1 


011 134 


007^71 




25*2 


01 J 136 


00*6101 




25«3 


011 140 


010146 




25P4 


011142 


005046 




25«b 


011144 


122704 


000214 


25«6 


011150 


001033 




25A7 


011152 


104614 




25*8 


011154 


100424 




25fl9 


011156 


120427 


000060 


2590 


011162 


103414 




2591 


011164 


120427 


000067 


2592 


011170 


101011 




2593 


011172 


042704 


177770 


2594 


011176 


006316 




2595 


011200 


00*316 




2596 


011202 


006316 




2597 


011204 


050416 




2598 


011206 


000761 




2599 








2600 


011210 


110115 




26*1 


011212 


000207 




2602 








2603 


011214 


004767 


173454 


2604 


011220 


007001 




260B 


011222 


007071 




2606 


011224 


010116 




2607 


011226 


122704 


000214 


2606 


011232 


001002 




2609 


011234 


104660 




2610 


011236 


007071 




2611 


011240 


012605 




2612 


011242 


012602 




2613 


011244 


100426 




2614 


011246 


003023 




2615 


011250 


01150S 




2616 


011252 


005105 




2617 


011254 


040501 




2618 


011256 


020127 


100000 


2619 


011262 


001007 




2620 


011264 


012767 


140000 170326 


262! 


011272 


012767 


000020 170316 


2622 


011300 


000207 




2623 


011302 


010167 


170J12 


2624 


011306 


012767 


000017 170302 


2626 


011314 


000207 




2626 








2627 


011316 


111501 




2628 


wii320 


000770 





fEXPERIMENTAL FUNCTION <nPTl«?JAI.> 

JFXC 1,HI!SS, AODR) 

?FX( 0,R1'SS, AHDR^nATA? 

|FXC-1#RHSS, Ar>DR,DATA) 



XEXI 



XEX21 



XEMt 



XEX2A1 



XEX3B 



XEX4I 



XETi 



XEXITI 



XERI 



FPINT 






ASL 


AC 




MOV 


AC, 


• (SP1 


clr 


*(SP) 




cmpb 


#214, 


CHAH 


BNF 


XEX4 




GETC 






BMT 


XEX3 




CMPB 


CHAR, 


#60 


BLO 


XEX2A 




CMPB 


CHAR, 


#67 


BHI 


XEX2A 




RIC 


#t»l0 f 


CHAR 


ASL 


9SP 




ASL 


esp 




AS!, 


asp 




BIS 


CHAR, 


*SP 


BR 




XEX2 


MOVB 


AC, 


f»R5 


POPJ 






JSR 


PC, 


GETARG 


FPGET* 


[PTR 




PPINT 






MOV 


AC, 


05P 


CMPB 


#214, 


CHAR 


BNE 


XEX4 




EVAL.X 






PPINT 






MOV 


(3P)+, 


Rb 


MOV 


C3P)+* 


PTR 


BHI 


XEL 




BOT 


XER 




MOV 


*R5# 


R5 


COM 


R5 




BIC 


R5, 


AC 


CMP 


AC, 


1100000 


BNE 


XEXIT 




MOV 


#140000 


,HORD 


MOV 


120, 


RE 


POPJ 






MOV 


AC, 


HORD 


MOV 


• 17, 


BE 


POPJ 






MOVB 


&R5, 


AC 


on 


ALA1 i 





IREAH BYTE 
I »» ft Kin" *OKH 

fLOAP* RKTE 



SAVE FUNCTION C>DE 
START B"S ADDRESS 



MOVE OH, 

LFAVE IF TERMINATOR, 

TEST FOR ALPHA 

USE EXPRESSION 



CREATE OCTAL ADDRESS 



LOAD 
LEAVE 

READ ADDR, VARIABLE. 

CAUTIONI BIT 15 IS SIGN BIT 

COMMA? 

HEAD DATA 

PUT INTEGER IN 'AC 

GET ADDRESS 

RESTORE CODE AND TEST, 



LOGICAL »AND» 

n 

IS IT «32768? 

NO 

YES»IT TS A SPECIAL CASE 



SAVE RESULT 
AS INTEGER, 
GO BACK TO FUNCTION CONTROL t 

?READ THF UN TBI'S 



Focr.r 



.4 
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2fi?9 
?ft'2 



?1132? ?2<*7P?> 

*•' 1 13 "> 4 1 1* 1 71 1 
°1!3?6 10461? 



XEL 1 
rEFRj 



CrAP PC, 

PL^S XRM 

FRPOR+2rfl+13»*li 



Pb 



I PROTECT F'^CftL 
I F ° v 

|DTSALT;O w Fn BUS ADrtRFSSES, 



. MATV, MACY11.62G 19*<MAR*73 IU01 



PACK 6 3 



2634 










2635 










2636 




01 1 J30 






?ft37 










?63« 










2*39 










2640 


011330 


042706 


000277 




2641 


<M1 334 


010667 


170312 




2642 


011 344? 


016706 


170344 




2643 


a 11 34 4 


012701 


000064 




2M4 


9»1 1 3?P* 


005021 






264* 


011352 


020167 


170332 




2646 


011356 


103^74 






2647 


0113*0 


01?737 


010256 


000100 


2648 


011366 


012737 


000340 


000102 


2649 


011374 


009(137 


003070 




2650 










2651 











HUF*FGs, 



TNTTl 



B1C 


#277 f 


SP 


MOV 


SP, 


BOTTOM 


VQV 


8TACK0+2.SP 


MOV 


I64# 


AC 


clr 


f AC)* 




CMP 


AC, 


STACKO+2 


flo 


,»6 




vov 


#CItfT, 


00100 


wov 


#340, 


0*102 


JVP 


9«KNIT2 





tHKGT:vVl>WC. OF TtX'l B'WKR, 



fONJCF 0>I,Y CODF, 

tSFT in XX7 50v» 

ICOPY 

» START STACK 

iXFRrv vt'CT^KS 

lAND STACK 

|SFT"P CLOCK POINTER 

>B9b 

jGO FRASF VARIABLE AREA AND START 



.MAIM. 

For 



IM. S 
GT,0| 
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2653 
2654 
2655 
26*6 
265? 
?6SR 
26*9 
266* 
2661 
2fi62 
2663 
2664 
2665 
2666 
2667 
2668 
2669 

2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
26*0 
2681 
2682 
2683 
2684 
2685 

2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
27*1 
27*2 
27*3 
27*4 
27** 
27*6 



0*1 



IGT40 FUNCTIONS 



,TFDF GT40 



JDNEW WRITTEN BY R, FRIEDENlHAT, 
lLAST FDTTl 2/2S/73 



fCOPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORPORATION 
fMAYNARD, MASS 01754 

I THE FUNCTIONS IN DNEW ENABLE THE FOCAL-11 USER TO DRA* ON A 
1 GT4B. 



fCONDtTIONAL ASSEMBLY PARAMETERS 



lASSEMBLING WITH NO PARAMETERS DEFINED IN THF ASSEMBLY STRING* 
f PRODUCES FOCAL«U WHICH WILL RUN IN AN 11/05 

fASSEMBLING WITH GT40 DEFINED PRODUCES AN 8K FOCAL-GT WITH NO 
fLPS FUNCTIONS 

» ASSEMBLING WITH GT4* AND RT DEFINED PRODUCES AN 8K FOCAL-RT 
fWITH A BUFFER 1000 WORDS LONG 

fASSFMBLING WITH GT40, RT, AND NOBUFF DEFINED PRODUCES AN 8K FOCAL»GT 
I WITH LPS FUNCTIONS AND AN FSAM THAT DOES NOT USE A BUFFER 

ITHE USER MAY DEFINE STANDARD PARAMETERS IN HIS ASSEMBLY STRING 
|BY DEFINING 'PARAMI IN THAT STRING FOLLOWED BY THF NEW PARAMETERS, 
»IN THIS CASE, HE MUST DEFINEI 



I KSXZE 

f DSIZE 
» TSIEE 



THE SIZE OF CORE IN WORDS 

THE SIZE OF THE DISPLAY FILE IN WORDS 

THE SIZE OF THE TEXT PORTION OF THE DISPLAY FILE 



I IF THE USER DEFINES CT40, RT, AND PARAM, HE MUST ALSO DEFINE 
f(IN ADDITION TO THE 3 PARAMETERS ABOVE 3 t 



LPBSIZ 



THE SI7.E OF THE LPS BUFFER (IN WORDS) 



f ASSEMBLING ANY OF THE ABOVE WITH l TERM i DEFINED PRODUCES A VERSION THAT 
lINCLUDES TERMINAL CODE 



.ENABLE AMA 
.ENABLE ABS 



'.MATW, MACY1 1,620 19-MAR-73 
FOCGT.002 
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?7<*7 




?7<*8 




?7«"9 




?7K'< 




271 1 




77<2 




7713 




9714 




?7iS 




2716 




2717 


002 


?718 




?7<9 


020000 


2720 


003 


2771 


004 


2722 




2773 




2774 


003 


2725 


004 


2796 




2727 




2778 


003 


2729 


002 


2730 


003 


7731 


005300 


7732 


000000 


2733 


002 


2734 


003000 


2735 




2736 


001 


7737 




2738 




2739 




2740 




2741 




2742 




2743 




2744 




2745 




27 4*> 




2747 




2748 




2749 




2750 




2751 


001625 


2752 


012576 


2713 


001000 


2754 


006000 


2755 


037770 


2756 


003124 


2757 




2758 


164000 


2759 


173400 


2760 


160000 



jTHR FOLLOWING PARAMETERS nfcTERMT'-F THE SIZL OF DISPLAY FILE 
t RELATIVE TO FOCAL BUFFER AREA, ™E PORTJO* *F 'I^E ^TSPLAY 
jFTLF DFVQTFn TO TFXT TNTlTAT.LYi AMD THK TYPE OK VCiClh TO PRODUCE 
ITHE USF.R WHO DEFINES 'PftKAM IK THE ASSEMBLY ST»I^G M"ST ^K.rrvf 
I ALSO EACH OF THF PARAMETERS DFFTKED BELO*. 



IFNDF PARAMS f 8K DEFINITIONS, DEFAULT DEFINITIONS 



KSIZF.S20000 

",IFDF RT 

'.IFNDF MOBUrr 

DSIZE«4000 

LPBS!Z«1762 

,ENDC 

,IFDF NGBUFF 

PSIZE«5000 

LPRSTZ«0 

,ENDC 

Jendc 

.IFNDF RT 

PSIZE«5300 

LPBSTZB0 

'.ENDC 

TSIZF.»3000 

,EMDC 

'.iFDr K4 

KSTZEB10000 

P8IZE-1000 

TSIZE»700 

LPBSIE-0 

,EWDC 



fCORE SIZE C20000a8K *ORDS) 

flF LPS CODE 

tJF FULL SUPPORT 

|8ET DISPLAY FILE SIZE 

11000 WORD INPUT BUFFER 

I IF MON*BUFFERED SUPPORT # 
fMORF ROOM FOR DISPLAY FTLF 
»NO BUFFER 



I IF NO LPS SUPPORT* PRODUCE FOCAL*GT 
fWlTH LARGE DIPSLAY FILE 
I AND NO BUFFER 

I IN ALL CASES PORTION OF DISPLAY FILE DEVOTED 
jTO TEXT INITIALLY 



§4K OEriNINTIONS (DEFINE PARAM +THE8E VALUES IN ASSEMBLY STRING) 
iCORE SIRE 
fDISPLAY riLE SIZE 
fTEXT FILE SHE 

tips Burreft (none) 



fTHE FOLLOWING RECALCULATE SIZES TO MAKE THEM DIVISIBLE BY LOCS 
fWNICH CONSIST OF 6 BYTES EACH 

DSIZE»DSIZE*DSIZE/6 

DDSIZE»D5IZE*6 fFTNAL DISPLAY FILE SIZE 

TSTZE«T3IZE+TSI«E/6 

TTSIZE«TSIZE*6 fFINAL TEXT PORTION 

KKSIEE*KSIZE*KSIZE«10 fFINAL CORE SIZE 

ENAB«3124 IENABLE BITS+XWTFNSITY 4 

I THF FOLLOWING DEFINE GT40 INSTRUCTIONS USED BY ONE*? 

DNOP»164000 fDISPLAY NOP 

DSTP»173400 fDISPLAY STOP, WTTH INTERRUPT 



DaMp«i60e00 



fDISPLAY JUMP (DEST7N ATIO^ FOLLOWS I*J FILE) 



.MAIM.j 


f '*CY1 1, 


,620 19- 


•MAR-71 


13:01 


Forr;T t | 








27M 




1 14000 






276? 




10000(3 






2763 




1 \ $n&l? 






2764 










27*5 




®?,P7\ \ 






2766 




0fc(? | tf 1 2 






2767 




M-*?* 5 






27*8 




a{*«a$7 






2769 




fi !?■ <?■ & y 






2770 




1 Pid(,60 






9771 




504614 






2772 










2773 




172000 






2774 




172002 






2775 




172004 






2776 




172^*6 






2777 




J7P404 






2776 




170400 






2779 




170402 






2780 




170406 






2781 




000134 






2782 










2783 




000320 






2784 




000300 






2785 




175610 






27B6 




175614 






2787 




000324 






2788 










2789 










2790 










2791 










2792 










2793 










2794 










2795 




011330 






2796 


011330 


013706 


001710 




2797 


011334 


012701 


000064 




2798 


011340 


005021 






2799 


011342 


020137 


001710 




2800 


011346 


103774 






28«i 


011350 


012737 


010256 


000100 


2802 


011356 


012737 


000340 


000102 


2803 


011364 


012737 


024634 


000320 


2804 


011372 


012737 


000340 


000322 


2805 


011400 


012737 


024526 


000324 


2806 


011406 


012737 


000340 


000326 


2807 




002 






2808 


011414 


012737 


023116 


000300 


2809 


011422 


012737 


000340 


000302 


2810 




«01 






28! 1 




002 






2812 










28*3 










2814 




001 
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r*PTsll4000 

nvrc»! 1^000 

RTPAR=2l X 
TFsl2 

BELL=7 
LOf"s?E^P 

rVAL?Ial04400 + 260 
6ETCH«10440«+214 
I GT DEVICE REGISTERS? 
GTPC«172^00 
GTSTAT*GTPC+2 
CTX«GTSTAT*2 
GTY«GTX*2 
CLKIK«170404 
ADINB170400 
LER0UT«ADIM+2 
PRE8ETS170406 
CLKADR-134 

STPADR«320 

TEWADR*300 

TENIN»175610 

TEW0UT»175614 

LPADReSTPADR+4 



.MACRO RESUME 
MOV #1,*#GTPC 
'.ENDM 



IPOINT MODE 

J CHARACTER MODE 

fLONG VRCTHR MODF 

|A RIGHT PA«F«JTHFSTS 

fLT^E FEKD CHARACTER 

ICARRIAGF RETURN 

|*G RINGS THE BELL 

I MAKE LOC A GKVERAL REGISTER 

JTRAP TO EVALUATE NfcXT ARG 

fGET NEXT CHARACTER FROM FUNCTION' 



IGT STATUS 

IGT X COORDINATE 

IGT Y COORD 

ILPS CLOCK STATUS 

ILPS A/D STATUS 

ILPS BUFFER AMP LED OUTPUT 

ILPS PRESET REGISTER 

ILPS CLOCK INTERRUPT VECTOR 

I STOP INTERRUPT ADDRESS 
I TEN INPUT VECTOR 
I TEN INPUT STATUS 
I TEN OUTPUT STATUS 

ILITE PEN TM, ADDRESS 



|RESTART THE DISPLAY. 

IBY TRYING TO MOVE A 1 INTO GTPC 



;«init 

MOV 
MOV 
CLR 
CMP 
BLO 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

Ufdf 

VOV 

vov 

'.EMDC 

,IFDF 

MOV 

WOV 

.EMDC 



|NEW IMIT CODE 
STACKO+2,SP 
164, AC - 

AC,STACKO*2 

ICINT,M100 

#340,M102 

#STPINT,0#STpADR 

»340,9ISTPADRt2 

#LPINT,MLPADR 

#340,8tLPAPR+2 

TERM 

#TENINT,«#TENADR 

»340,§tTENADR+2 



|SET UP STACK POINTER 

I GET START OE VECTOR AREA, 

|ANO CLEAR UNTIL, 

IBASE OF STACK 

I INSERT CLOCK VECTOR 
|AND STATUS 

ISTOP VECTOR. 

ILITE PEN VECTOR 

|IN TERMINAL SETUP, 

I SET UP TEN INPUT INTERRUPT 



RT |If 

«CLKTNT,a#CLKADR 
#340,§iCLKADR+2 



LPS SUPPORT 

fSFTUP CLOCK INTERRUPT 



'.MAIN, 


MACYH, 


620 19* 


MAR»73 


FOCGT,002 






?R15 


011410 


004737 


023166 


281* 


0114^4 


00^137 


<a0307« 


2fl<7 








2M8 








?R1 9 








2820 








2fl?i 








2072 




002102 




2823 


002102 


104443 




2824 








2825 




010110 




2826 


010J10 


013746 


177562 


2927 


010114 


12)627 


000203 


282B 


0101 2P5 


001006 




2S?9 


010122 


105137 


001601 


2830 


0191126 


001005 




2*31 


010130 


004737 


023166 


2832 


010134 


104601 




2833 


010136 


105037 


G0i60i 


2834 


010142 


005737 


001636 


2835 


010146 


000137 


024472 


2836 








2817 








2858 




002 




28^9 




010110 




2940 


010U0 


000137 


023016 


2841 




001 




2942 








2843 








2844 




002016 




284S 


002016 


000137 


024504 


2846 








2847 








2848 








2849 








2850 








2851 








2852 




000054 




2853 








2854 




002 




2855 








2856 




001 




2857 








2858 








2859 








2860 








2851 








2852 








2853 




001710 




2854 


001710 


001024 




2865 




001024 




2856 


005024 


000000 




28*7 


001026 


000000 




2868 




002 
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JSP 

JMP 



PCiINlTD 



j GO SFT UP DISPLAY FILE 
j THEM GO START 



A K -n 



jhn*i?VFRi ERASEV ERASES THE JMP MIINTT2 

iHFK^K"' T'f GETS TQ fcXF-T U^E , FQCA': STARTS A *■■ Y * * Y 

fbUT HO*? 





t =STARTX*46 


tCHANGE FOCAL »S HELLO, 




104443 




fTO » SIGN 




.SKINT 




jCHANGF. KEYBOARD INPUT ROUTINE 




VOV 


»#TKS*2»«(SP1 


»GFT CHAR 




CMPB 


9SP,#203 


ITFST FOP *C 




BNF 


KIVT3 


»NO 




COMB 


CCFLC*. 


|YES, UPDATE FLAG 




BNF 


KIMT4 


|TWO? 




JSR 


PCIMITD 


»YFS RFSFT SCREEN, 




ERROR+201+0,+0, 


fAMD FOCAL 


KINT3I 


CLR8 


CCFLG 




KIWT4I 


TST 


KIM 


|ANY ROOM? 




JMP 


TSTERR 


IGO HO EXCESS CODE 




".IFDF TERM 


|IF TERMINAL HOOKUP, 




.PKINT 




|18T GO CHECK FOR *F AND *7 




JMP 


K 






'.EVDC 








>ERR2 + 44 


ION AMY ERROR, 




JMP 


RESETD 


1RESTART THE DISPLAY 



NUMF«54 

\IFVT RT 

NUMFlNUMF+14 

'.ENDC 



.■STACKO+2 

1100*NUMF 

,«1100*NUMF 

p . u^H- - 
,IFDF RT 



ISIZE OF ADDITION TO FUNCTION LIST 

JFOR LPS ADDITION 
! INCREASE THIS SIZE 



JSHQPTE* STACK IN OVERFLOW ROUTINE 
f INSERT WEW FUNCTIONS 
fEVD OFLTMETER 

I LPS FUNCS 



!AIM 
>CGT,0 


/ "Yil. 


620 19»MAR"7J 


2869 








2870 








2871 








2ft 7 2 








2873 








2874 








2875 




001 




2876 


001030 


02 4110 




2877 


001032 


011462 




2878 


001034 


024064 




2879 


001036 


002740 




2880 


001040 


024004 




2881 


001042 


014153 




2882 


001044 


024000 




2883 


001046 


014133 




2884 


001050 


023700 




2885 


001052 


013467 




2886 


001054 


023364 




2887 


001056 


014164 




2888 


001060 


023514 




2889 


001062 


014054 




2890 


001064 


023274 




2891 


001066 


014030 




2892 


001070 


023264 




2893 


001072 


002764 




2894 


001074 


023254 




2895 


001076 


013742 




2896 


001 100 


023244 




2897 


001102 


014067 




2898 








2899 




001774 




29*0 




000000 




29«i 




000000 




2902 




002 




290$ 




000150 




2904 




002004 




2905 




001 




2906 




002 




2907 




003 




2908 








2909 




002 




2910 




003 




29 11 








2912 




002 




29 IS 








29*4 








2915 




001 




2916 




002154 




2917 








25t8 




023016 




2919 




001652 




?920 


00)652 


023014 




292! 








29?<* 




025172 
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XTIC 

14047 

XSAM 

14001 

XL ED 

13630 

.ENDC 

xcr.iT 

13462 

XLP 
2740 
XYCO 
14153 

xxco 

14133 

XDIS 

13467 

XTXT 

14164 

XSKP 

14054 

XSFT 

14030 

XPT 

2764 

XMOV 

13742 

XVFC 

14067 

GSIZE*1774 
TERSISB0 
LPSSIZ«0 
.IFDF TERM 
TERSI2O1S0 



iFTIC(ARft) -RETURNS OP SETS TTMF 
IFSAM(CHA?1) •RETURNS A/U 0- CHANNEL 
IKNU^CARR) «LOADS LEDS WITH ARG 

IECLPO -CLEAR GRAPHICS FILE 

IFLP(LOC) ^RETURNS LAST LP RITCDUMMY ARG) 

tFYCO(LOC) -RFTtlRNS Y COORD OF LOC 

IKXCO(LOC) -RETURNS X COORD OF IOC 

lFDIStHNE#IVT,BMNK,LP) 

> -SET MODE OF NEXT ENTRY 

|FTXT(LOC»ABCD) -INSERT UP TO 

|4 CHAR, 5 OF TEXT 

PFSKPCLOC r.L0C21) MNSERT5 A JMp 

|T0 L0C2 AT LOC OR TO TEXT IF NO L0C2 

|FSET(LOC,X,Y)*INSERTS iwvis ABSO,, POINT 

|FPT(L0C»X,Y3 "INSERT VIS, ABS, PT, 

|FMOV(LOC,X,Y) ^INSERTS INV, VECTOR 

|FV£CCLOC,X,Y) "INSERTS VIS, LONG VECTOR 

tIF SO, OUTPUT LINE NUMBERS, ETC, 
fSIZE OF NEW GT40 CODE 



»IF TERMINAL CODE IflCLIIDED, 

fDEFINE ITS SIZE, 
G5IZK«G5IZE+10 |AND ALLOW FOR TERMINAL CODE IN MAIN 
1ENDC 

,IFDF RT »IF LPS FUNCTONS IN, 

.IFNDF NOBUFP »IF FULL SUPPORT, 

LPSSIZ«4S0 PDEFINE ITS SIEE, 

*,ENDC 

'.IFDF NOBUFF »IF NO BUFFER SUPPORT, 

LPSSIZ«250 fLESS CODE USED 

.ENDC 

LPSSIZ«LPSSIZ*LPRSlii+LPBSlZ jADD IN THE BUFFER 
GSIZE«GSIZE+10 fEXTEND MAIN CODE SIZE 

'.ENDC 

FSIZF«GSIZE+TERSIX+LPSSIZ fSIZE OF DNEW 

DB0T»KK5IZE«FSIZE-DDS1EE »END OF FOCAL»CQRE STZE«LOADER STZE-FNE* 
.sROTTOM | THE GRAPHICS FILE STARTS WHFRF FOCAL F'ins 

DBOT-2 



,«DBOT+FSIZE 



tDTSPLAY FILE FOLLOWS FUNCTIONS 



.MATV, MACYH.620 
FOCGT.002 
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2923 


02M7? 


175660 




2924 








?Q?5 


P25174 


1 17124 




?9?6 


02*176 


0000PIP* 




?<)?7 


W2S2PW 


00P!C*0<& 




?9?e 


?252<*2 


U400W 




2929 


A25204. 


000000 




2950 


25206 


000000 




29M 








2932 


025210 


160000 




2913 


025212 


031772 




2954 




031772 




2935 


031772 


117124 




2956 


031774 


000000 




2957 


031776 


001360 




2958 


032000 


100000 




2939 








2940 








2941 








2942 




023166 




2943 








2944 








2945 








2946 


023166 


012737 


025202 024656 


2947 


023174 


005037 


024662 


2948 




002 




2949 


023200 


005037 


023156 


29*0 




001 




2951 




002 




2952 








2953 








2954 








2955 








2956 




001 




2957 


023204 


005037 


024664 


2958 


02S210 


012700 


025202 


2959 


023214 


012720 


114000 


2956 


023220 


005020 




2961 


023222 


005020 




2962 


023224 


012737 


031772 024666 


2963 


023232 


004737 


024144 


2964 


023236 


004737 


024362 


2965 








2966 








2967 


023242 


000207 




2968 








2969 








2970 








2971 








2972 


023244 


052737 


110000 024662 


2973 








2974 


023252 


000414 




2975 








2976 


023254 


0527 37 


110000 S24662 



DFILFl .WORD 173660 



I ORIGINAL STATUS! NQHALICS, GL«>* 

? AND STOP 

jPOINT MODE+FMAHLE BTT5 

I SET START OP GRAPHICS TO (0,.*) 

I START OF USER FILFl STARTS i'lTM PTIMT 

I USER MAY CHANGE IT 

J LIGHT PEN HITS SHOW UP TN THESE CO* 

fORDTNATES, 

f INITIALLY, JU y PS TO TFXT FILE FOLLOWS 



'.WORD DFT+ENAB 

f «opn 

.WORD 
t»OC 01 .WORH npT 

.word 
.word 

.word djmp 
.word text 
% a «loc0»6 + ddslze-ttsjlzf 1 leave room for graphics, 

TEXT! .WORD DPT+ENAB J AND START TEXT WITH PT , AT (0,700) 
,WORn 
,WORD 1360 

.WORD DCHR ICHAPACTEP MODE 

|FILE EXTENDS UP IWl'O TOP OK CORK, ENDS WITH A STOP 

> THF FUNCTIONS START HERE, WHERE FOCAL STORAGE AREA ENDS 

.snBOT+TERSIZ+LPSSjZ fMAIV CODE SMARTS AFTER LPS AND TERMINAL COOK, IF ANY 



IINITD SETS UP 
INITDl MOV 
CLR 
'.IFDF 
CLR 
,ENDC 
'.IFDF 
TST 

eso 

CLR 
CLR 
'.ENDC 
NQLPSI CLR 
MOV 
MOV 
CLR 
CLR 
MOV 
J3R 
J5R 



THE DISPLAY FILE 
#LOC0#LPLOC 
MODE 
TERM 
TOHOST 

RT 

DTIME 

NOLPfi 

MCLKXN 

DTIME 

8TPFLG 

#LOC0»LOC 

#DPT»CLOC)# 

(LOO* 

(LOO* 

ILOC0»6*DD8IZE» 

PC #T JUMPS 
PCTCLEAR 



f) *P fi PC 

rTHE 4 GRAPHICS FUNCTIONS! ALL 

I THE CORRECT LOC.S AND COORD „S 

I INSERT THEM, 

IFVECI VISIBLE VECTOR 

XVECl BIS #DVEC,MODE 

BR VIS 
fFMOV, INVISIBLE VECTOR 

viiaii. « r n lnll£ , l , .unnC 



EACH RESTART 

fSET LPLOC TO LQC0 

fIN TERMINAL HOOKUP* 

t CLEAR FLAGS, START IN FOCAL 

IFOR LPS, 

I IF TIMER 0, 

lDON»T WRITE INTO DEVICE REGISTER 

I ELSE* STOP CLOCK, 

fAND CLEAR TIMER 

ILET DISPLAY STOP 
fPTR TO DISPLAY FILE 
fSTART WITH A PT INSTR, 
1(0,0) COORDS 

TTSIZE,TXTPTR ILEAVE CELL5 FOR GRAPHICS 
pFILL GRAPHICS FILE 

fSET UP TEXT FILE 

I WITH JUMPS TO TEXT FILE 

fAND START DISPLAY 

fAND RETURN to START CODE IN FOCAL 
USE THE SAME CODE TO PICK UP 

AND TO 



fMODE MAY CONTAIN MOOES PUT 
tTHERE BY FDIS 
fGO SET VISIBLE BIT 

*AL*sO fQHQ VECTOR 



.MAIV, i 


f -Y11. 


620 19- 


MRR-73 


13801 PAGE 64* 


6 




FOCGT.d 


1 












-■■ 


2977 


0212*2 


000414 








BR 


IVV 


2978 










fFPT, 


VISIBLE 


ABSOLUTE POIWT 


2979 


023264 


052737 


1 14 30« 


024662 


XPTJ 


PIS 


#QPT#MOOF 


2980 


02327? 


9 4 4 








BR 


vis 


29PJ 










?FSET, 


INVISIBLE ABSOLUTE POT 


29R2 


023274 


052737 


1 14^00 


024662 


XSKTl 


BIS 


#DPT»MODF 


29«3 


023302 


000404 








BR 


INV 


29ft4 


023304 


012737 


»40000 


024660 


VIS! 


MOV 


#40000, HlblTS 


29»5 


023312 


0004^2 








BR 


RRALL 


298ft 


'023314 


005037 


024660 




I*JVt 


CLP 


HIBITS 


29*7 


023320 


004737 


024176 




GRALM 


JSR 


PCiOOCGO 


29R8 


023324 


013720 


024662 






MOV 


MOr)E#(I.OC) + 


2909 


023330 


004737 


023344 






JSR 


PC,PLUGCC 


2990 


023334 


004737 


023344 






JSP 


PC#PLU6C0 


2991 


023340 


000137 


024312 






JMP 


RETMEW 



J BUT INVISIBLE, DON'T SET HIT 



? HIBITS ALREADY CLEAR, b"T MAKE SURE 

tGET LOCATION OF 1ST COORD (MO STOP) 

ISFT MODE 

>PUT X COORDINATE Into FILE 

tPUT ¥ COORDTMATF IN 

fRETNEW STARTS DISPLAY AND EXITS 



.MAT*', MACY! 1,620 19-N5AR-73 
FOCG*,?* 1 ^ 
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2903 








?<394 








?Q05 








?00<i 








?<*ci? 


323344 


0t*»046 




?<ia$ 


P23346 


104660 




?g<?9 


323350 


007071 




30010 


*23352 


01260A 




3c»0i 


123354 


0(44737 


024264 


35»*2 


023360 


010120 




3«*fl3 


323362 


000207 




30*4 








3PS5 








30«6 








3007 








30«8 








30*9 


023364 


004737 


024164 


3^1 P 


023370 


020037 


024666 


30U 


023374 


002402 




3012 


023376 


162700 


000006 


3013 


023402 


012710 


100000 


3<M4 


023406 


053720 


024662 


3P15 


023412 


012737 


177774 024660 


3016 


023420 


120427 


000211 


301 7 


023424 


001002 




3018 


023426 


005001 




3019 


023430 


000412 




3020 








30?i 


023432 


010046 




30192 


023434 


104660 




30?3 


023436 


007071 




30?4 


023440 


120127 


000040 


30?s 


023444 


002003 




3026 


023446 


062701 


000100 


3<??7 


023492 


000772 




3098 


023454 


012600 




30S9 


023456 


110120 




3038 


023460 


005237 


024660 


3031 


023464 


002755 




3032 


023466 


120427 


000211 


3033 


023472 


001336 




3034 


023474 


010001 




3035 


023476 


062701 


000004 


3036 


023502 


012737 


000001 172000 


3*37 


023510 


000137 


024110 


3038 








3039 








3040 








3041 








3042 








3043 


023514 


004737 


024164 


3044 


023520 


052737 


100000 024662 


3045 


023526 


013720 


024662 


3046 


023532 


012720 


160000 



IPT.UGCO PICKS UP THE NEXT &KG, P"TS TT I*> DISPLAYAHLF 

I FORMAT, ANH ENTERS IT IN TME CURRENT CELL 

f OR CALL PL"GCO ONCE AND START TT 4IT" JSR PC , PI UGCn+4 

JSAVE LOC 0=4 STACK 

JGFT THE ARG 

1 FETCH LOC 

IPIITCO FORMATS IT INTO AC 
I PLUG TT IM 



S INTO A LOC,, 

SJ MORE THAN 4 GOES ON TO NEXT LOC., 
BY ADDING 100 TO THEM IF NECESSARY 
1 GET LOC, TNTO LOC 
U*" REYOND GRAPHICS FILE* 

»SET LOC BACK 1 LOC 

I INSERT CHARACTER MODE 

|AND MODE BITS 

IHIBITS COUNTS OFr 4 CHAR.S 

?NO MORE ARG5? 

I YES, INSERT ZEROES, 
|AND STOP GETTING ARG.S 

fSAVE LOC AROUND EVAL 

fNEXT ARG INTO AC 

I THEN ADD »100 TO VALUES <40 



fRETRIEVE LOC 

» INSERT THE CHARACTER 

I GO GET NEXT 4 

lEND OF ARG,S REACHED? 

I NOPE DO ANOTHER LOC 

fYES, RETURN NEXT LOC 

IMAKE SURE AC POINTS IN NEXT LOC 

| RESUME DISPLAY 

I VIA XLP CODE 



IESKP INSERTS A BLOCK CONTAINING A JMP TO 50*EHWF.RE IN THE GRAPHICS 
t FSKPCLOC) INSERT A JMP TO THE TEXT FILF AMD CLEARS THE TEXT EILE| 
f FSKP(L0C1,L0C2) INSERTS A JUMP TO LOC2 
XSKP'l JSR PC#L0CSET |GET 1ST LOC, IMTO LOC 

BIS #100000, MODE | MAKE MODE INTO CHAR M^DE WORD 
MOV MOnE#(LOC)+ f INSERT MODF OF .JUMP 
MOV #DJMP»CLOC>* i INSERT JU"i3P 



PLUGCOJ 


MOV 
EVALU 


LQC,«cstn 




FPINT 


I1WT0 




MOV 


fSP)+,LOC 




JSR 


PCPUTCO 




MOV 


AC, (LOC)* 




PTS 


PC 


IFTXT WILL INSERT UPTO 4 CHAR, 


1 FTXTCLOC,Cl,C2,C3,,, f ) 


I LESS THAN 4 ARGS INSERTS NULL 


fFTXT WILL MAKE 


ALL VALUES >40 


XTXT| 


JSP 


PCLOCSET 


MORTXTl 


CMP 


IjOC#TXTPTB 




PLT 


PUTTXT 




SUB 


#6, LOC 


PUTTXTI 


MOV 


*DCHR,(LOC) 




PIS 


MODE, CL0O + 




MOV 


INHIBITS 


ASCII! 


CMPB 


CHARtiRTPAR 




BNE 


NOTYET 




CLR 


AC 




BR 


JUST0 


NOTYETI 


MOV 

EVALU 

FPINT 


LOC,«CSPJ 


MAKSURI 


CMPB 


AC, #40 




BGE 


DUNASC 




ADD 


•100, AC 




BR 


MAKSUR 


DUNASCt 


MOV 


CSP)*-,LOC 


JUSTft 


MOVB 


AC#CLOC)+ 




INC 


HIBITS 




BLT 


ASCII 




CMPB 


CHAR,*R?PAR 




BNE 


MORTXT 




MOV 


LOC, AC 




ADD 


#4, AC 




MOV 


•iiitGTPC 




JMP 


RETLOC 



FOCGT,0\ 
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c 



( 



3047 

3048 
3049 
3050 

30*1 

3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
306? 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3091 
3082 
3083 
3084 
308B 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3099 
3096 
3097 
3008 
3099 
3100 



023536 

0235491 
023546 
023552 
023**4 
023556 
023562 
023564 
023572 
023574 
023576 
023600 
023602 
0236*4 
023606 
023612 
023616 
023620 
023624 
023626 
023632 
023634 
023642 
023646 
023650 
023654 
023660 
023664 
023670 
023672 
023674 



023700 
023702 
023706 
023714 
023716 
023720 
023722 
023724 
023730 
023734 
023736 
023742 
023744 
023752 
023754 
023760 



010 4 6 

i- 1 _"♦ ri J 7 
120427 

001433 
104660 
0057 37 
002411 
123727 
003020 
007045 
000003 
060000 
007071 
000402 
012701 
062701 
102406 
020137 
003421 
020127 
002406 
012737 
013701 
000402 
010137 
013700 
004737 
004737 
012600 

010110 

000137 



007071 
010137 
042737 
104660 
007071 
000301 
006201 
042701 
010137 
104660 
005737 
001403 
092737 
104660 
005737 
001403 



024666 
/.0 21 1 



001h?0 
001616 



177770 
025202 

024666 

037662 

037662 
024666 

024666 
024660 
024144 
024362 

024312 



024662 

177770 



176177 
024662 

001620 

000010 

001620 



^24660 



000014 



024666 



024662 



MOV 

MOV 

CMPB 

BEG 

FVALU 

TST 

RLT 

CMPB 

BGT 

FPMUL+T 
FP6I 3 

60000 

FPINT 

BR 
NQTEXTl MOV 
NOTBAKl ADD 

BV5 

CMP 

RLE 

CMP 

BLT 
LEAST! MOV 
TXTJMPI MOV 

BR 
HOTOUTI MOV 
WAYOUTi MOV 

JSR 

JSR 
INFILEf MOV 

MOV 

JMP 



LOC,»(SP) 
TXTPTR,HTBTTS 
CHAR* tRTPAR 
TXT JMP 

HORD 
NQTEXT 
BE, #14 
LEAST 
MMED 



NOTBAK 

••10#AC 

#LOC0,AC 

LEAST 

AC,TXTPTR 

INFILE 

AC,#LOC0*6+DD5 

NOTOUT 

#LOC0»6*DDSIZE 

TXTPTR,AC 

WAYOUT 

AOTXTPTP 

HIBITS,LOC 

PC »T JUMPS 

PC,TCLEAF 

CSP)*,LOC 

AC i (LOO 

RETNEW 



ISAVE LOC, 

fSAVF. OLf> TEXT START 

I RIGHT P»R § MK&MS VO 2N0 ARC, 

1 *U1CH MFAN5 JUMP tq T^XT 

fGET 2ND ARG 

JON ARC <0, 

JJt'MP TO START OF DISPLAY FILE 

IOW POTENTIAL INTKGER OVERFLOW, 

fUSE END OF TEXT 

ICALCULATE 2»U LOCATION 

f LOC 2*3 WORDS 

f^AKF AN INTEGER 

UUMP TO START OF FILE 
l+START OF FTLECLOC0) 
ION OVERFLOW, I.0C2 TOO HIGH 
I IF 2ND LOC OVERLAPS TEXT, 

IZFM10 I TEST FOR BEYOND WHOLE FILE 

«110,TXTPTF ITEXT ONLY ONE LINE 

tIF OUT, MAKE ITA JUMP TO START OF TEXT 

fCLEAR OUT TEXT FILE 

fSET UP LOC FOR TJUMPS WITH OLD TEXT START 

f ADD JUMPS FROM OLD START TO NEK START 

ISTARTING AT 2ND LOC, CLEAR TEXT 

fGET LOC FROM STACK 

I AND INSERT THE JUMP ADDR.CNO 3RD WORD) 

IDONE, GO RETURN NEXT FREE LOC 



fFDlS SETS UP 
|FDIS SETS UP 
fGRAPHICS FILE 
fFDISCLINETYPE 
XDiat 



024662 



NOBLII 



MODE WITH THE SPECIFIED MODES, THE NEXT ENTRY IN THE 
MODE WITH THE SPECIFIED MODES, THE NEXT ENTRY IN THE 
USES THIS MODE* THEN CLEARS IT, 
E0«33 , INTENSITY [0*73 , BLINK E0«1] ,L,P f C0-13 ) 

fGET LINE TYPE INTO LOW BITS 

I ENTER THE LINE TYPE 

IMAKE SURE NO OVERFLOW 

IGET INTENSITY 



I PUT IT »N BITS 7,5,9 

fNO OVERFLOW 

IENTER IN MODE 

fGET BLINK 

fPOS HORD MEANS BLTNK 

fSET BLINK BIT 
fGET LITF PEN SENSITIVITY 



FPINT 




MOV 


AC, MODE 


BIC 


#177770, mo 


EVALU 




FPINT 




SWAB 


AC 


ASR 


AC 


BIC 


#176177, AC 


BIS 


AC, NODE 


EVALU 




TST 


HORD 


BEO 


NOBLI 


BIS 


#10, MODE 


EVALU 




TST 


HORD 


BEQ 


NOLP 
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1 


101 


021762 


052737 


000040 


3 


102 


0237*7?* 


05?7**7 


002124 


3 


0)3 


02377fc 


0M0207 




1 


1*4 








1 


105 








3 


106 








1 


l«7 








3 


|p8 


024000 


005046 




3 


109 


0240012 


000402 




3 


110 


024004 


012746 


000002 


1 


Mi 


024010 


004737 


024204 


3 


112 


024014 


005001 




3 


113 


024016 


022027 


160000 


3 


M4 


024022 


002015 




3 


115 


024024 


062600 




3 


116 


024026 


011001 




3 


117 


024030 


*32701 


020000 


3 


M8 


P240J4 


001405 




3 


119 


024036 


011001 




3 


?0 


024040 


c*42701 


060000 


3 


21 


024044 


005401 




3 


122 


02*046 


000403 




3 


l?3 


024050 


051001 




3 


l?4 


024052 


042701 


040000 


3 


l?B 


024056 


004737 


024340 


3 


l?6 


024062 


000207 




3 


27 








3 


l?8 








3 


l?9 








31 


130 








3i 


131 


024064 


007071 




31 


132 


024066 


005 701 




33 


133 


024070 


001002 




31 


34 


024072 


008037 


024656 


33 


135 


024076 


005737 


024656 


33 


136 


024102 


001775 




3] 


137 


024104 


013701 


024656 


33 


138 


024110 


162701 


025206 


33 


139 


024114 


004737 


024340 


S3 


. 4® 


024120 


0070S0 


023576 


33 


141 


024124 


007071 




13 


142 


024126 


000207 




33 


143 








31 


144 








13 


L45 








33 


146 








33 


147 


024130 


004717 


024164 


33 


146 


024134 


004737 


024144 


33 


149 


024140 


000137 


024312 


33 


15? 








S3 


151 




024144 




33 


152 








33 


53 








3] 


54 









024662 




BIS 


#40, MODE 


024662 


MQl.Pt 


BIS 


#2124,MonE 






RTS 


PC 



I SET LP SENSITIVE HIT 
J SET ALL FN ABLE PITS 
fHFTURN TO FOCAL 



IFXCO AMD FYCO RETURN X A^D Y COORDINATES n? LOG, SPECIFIC fr r&LL 



XXCOl CLP »(SP) 

BR COCO 

XYCOi VOV #2,*CSP) 

COCOi JSP PC ,LOCGET 

CLP AC 

CMP (LOCU,#PJMP 

BGF OUTGO 

ADH (SP)+, LOC 

MOV CLOOfAC 

PIT #20000, AC 

REQ P080UT 

VOV (LOC), AC 

BIC #60000, AC 

MEG AC 

BR OUTCO 

POSOUTl BIS (LOC)»AC 

PIC #40000, AC 

OUTCOl JSR PC, FLOAT 

RTS PC 



JSAVF. OFFSET OF COORD, I« STACK 

»¥ COORD, ONE WORD DOWN 

• GET LOC,- INTO LOC ( + 4 TO KOT STOP DISPLAY) 
fSFT UP HORD MANTISSA 

fOM nj^p JM THIS SLOT, 

I RETURN 

fVIIH OFFSET, LOC POINTS TO COORD 

• GET COORD IN DISPLAY FORMAT 

• TEST NEGATIVE BIT 

• IF POSITIVE, EVERYTHING OK 

| IF VEG, MAKE INTO A 16 PIT NEGATIVE 
IGFT RID OF NEC BIT AND VI5»TNV PIT, 
•A»D NEGATE 

»AC»0 ON P05, COORD 
•CLEAR VIS-INV, BIT 
•FLOAT COORD INTO FLAG 

• AND RETURN TO FOCAL 



|XLP RETURNS LOC,, OK LAST LP HIT> THE INTERRUPT HAS PUT 
» THIS LOCATION INTO LPLOC 
XLPI FPINT 

TST 

BNE 

CLR 
RETNOW1 TST 



BEQ 

MOV 

RETLOCI SUB 

JSR 



AC 

RETNOW 

LPLOC 

LPLOC 

RETNOW 

LPLOC, AC 

ILOC0+4,AC 

PCfLOAX 



FPDIV*DI!EC?*FP6 

rPfNT 

RTS PC 



•GET APG 

•ON ,E0, 0, 
•WAIT ^OR LP HIT 
•BEFORE RETURNING 

•GET ADDRESS 

•MAKE INTO AN OFFSET FROM LOC0 

•rLOAT INTO FLAC 

t/3 TO GET LOC FOR USER 

• BACK TO FOCAL 



•XCLR CLEARS THE SCREEN OF GRAPHICS 



XCLRl 



JSR 
JSR 
JMP 

GEND», 



PCLOCSET 
PC#TJUMPS 
RETNEW 



•GET APG AND STOP DISPLAY 

•CLEAR THE SCREEN DP TO TEXT POINTER 

| RETURN ARG4 1 AND START DISPLAY 

• INSERT LPS CODE NO*, if &fjy 



r .MAT». J 

3155 
3156 
3! 57 
115 8 
3159 
316F 
31M 
3162 
3163 
3164 
3165 
3166 
316? 
31*8 
31*9 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
117? 
3178 
3179 
3180 
31*1 
3182 
31*3 
31*% 
3185 
31*6 
31*7 
31*8 
31*9 
3190 
3191 
3192 
3193 
3194 
319B 
3196 
3197 
3198 
3199 
32*0 
3201 
32*2 
3?*3 
32«4 
32*8 
3?«6 
32<"7 
32*8 
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■. v*2 



(,j?3 



,1FDF FT 



J LPS FUNCTIONS 

J START THKSE AT BOTTOM OF DN'Fa SO PATHCAHLF HUT 



,IF0F NOBUFK 
IXSAM SAMPLES THE ANALOG CHANNEL CONTAINED I* ? THF Fuf-CTinr- ABG 



XSAM| 



NOADi 



mi 

003 



FPTNT fCiET CHANNEL INTO AC, 

SWAB AC I HIGH BYTE 

TNrB AC fSFT FMA8LF BIT(#***OH SET OTT 4 FOR SCHM1TT) 

MOV AC,9»ADIN flMtTlATF A/n 

TSTB **ADIN »DONE? 

BG? NOAD »IF NOT, WAIT 

MOV ft#ADIN+2,AC |GET THE VALUE 

JSP PC, FLOAT UNTO FLAC 

RTS PC 

,ENDC 



.IFNDF MOBUFP 

LPS8UF«, 
' t «;+LPBSIZ*2+LPBSlZ 



tIF BUFFERED FSAM, 

f START OF BUFFER 
fLEAVE ROO* FOR BUFFER 



fXSAM STARTS AD CONVERSIONS DEPENDING UPON THE 

fTYPE AND NUMBER OF ARGNUMENTS, 

JONE ARG POSITIVE OOES ONE SAMPLE AND RETURNS ITS VALUE, 

jONF. ARG NEGATIVE RETURNS «NTH SAMPLE IN BUFFER 

fTWO ARGS, 2ND POSITIVE SAMPLES 2ND NUMBER OF POINTS INTO BUFFER 

jTWO ARGS, 2ND NEGATIVE SAMPLES 2ND NUMBER OF POINTS BUT WAITS FOR 

I SCHMITT TRIGGER BEFORE STARTING 

| THREE ARGS SAMPLES TWO CHANNELS ON EACH TIC, 1ST ARG AND 3RD ARG 



XSAMl 



T3T 


*t89) 


NOP 




MOV 


AC, LOC 


NEG 


LOC 


ASL 


LOC 


BGT 


RETDAT 


BlC 


#177770, AC 


MOV 


AC»£SP) 


SWAB 


AC 


INC 


AC 


MOV 


ACLPREG 


MOV 


#2, LOC 


CMPB 


CHAR,#RTPAR 


BEG 


3AML0P 


MOVB 


#40#LPREG 


EVALU 




FPINT 




MOV 


AC, LOC 



iGET 1ST ARG 

I USE STACK AS TEMPORARY 

|####DEBUG 

>ON NEG, ARG 

fMAKE AN INDEX INTO BUFFER, 

tAND JUST RETURN DATA 

»ELSF 

fSAVE CHANNEL 

I AND MAKE AD CONVERSION WORD, 

fWITH START BIT ON 

I SET LOC TO 1 POINT 
|AND IF NO MORE ARGS, 
>G0 SAMPLE ONCE 
lELSF SET CLOCK OFLOW BIT 

lAND GET NUMBER OK POINTS 
jIF <«0 POINTS, 
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FOCGT.002 

32^9 

3210 

3?ll 

3212 

321 3 

3214 

32^5 

3216 

3217 

1218 

3219 

3220 

3221 

3222 

3??3 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

S24S 

3246 

3247 

3248 

3249 082 

32*0 

3251 

3252 

3293 

3254 

3255 

3256 

3257 

325S 

3259 

3250 

32«i 

3262 
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VOSHi 
S17.0KI 



SAMLOP 
NQftDf 



DUNADS 

RETDAT 
ABADl 



BGT 

NFC 
TLR 
VQV 
CMP 
BLF 
MOV 
ASL 

req 

CMPB 

BEG 

MCV 

EVALU 

FPINT 

MOV 

BIC 

MOV 
I MQV 

T8TB 

BGE 

MOV 

DEC 

DEC 

BLE 

NOP 

CMPB 

BEQ 

MOVB 

INC 

BR 

CLR 

NOP 

T«T 
I MOV 

JSR 

TST 

RTS 



LPREGI '.WORD 



NOSH 

LOC 

MCLKIN 

#2«506,MCt.MN 

LOC,*LPBS17 

SI70K 

• LPBSXZftiOC 

LOC 

ABAD 

CHAR,#RTPAP. 

SAMLOP 

LOC,«CSP) 



CSP)+,LOC 

#177770, AC 

ACCSP) 

LPREG,e*ADIN 

8#ADIN 

NOAD 

MADIN + 2,LPSBUF 

roc 

LOC 
DUNAD 

S#ADIN+1,(SP) 

SAMLOP 

fSP5,0*ADlN+i 

MADXN 

NOAD 

MADIN 

fLOO* 

LPSBUF(LOC),AC 
PC, FLOAT 
CSP5 + 
PC 



IMAKE POSITIVE, 
ISTOP CL^CK, 
fAND MAKF CLOCK 
I ON MnRf points 



WAIT 
THAN 



FOR SCH^ITT 
SPACE 



I DECREASE TO MAXTM11M 

jMAKE AW INDEX 

ION POINTS REQUESTED, 



.7UST RETI'HW 



fSAVE LOC AROUND ARITHMETIC 
l«OW GET 2ND CHANNEL, IE ANY 



IPUT IT OVER 1ST CHANNEL IN STACK 
fSTART CONVERSIONS 
fWAlT FOR DONE FLAG 

(LOC) jENTER VALUE IN BUFFER 
IDECP, COUNTER 

ITILL EXIT 
t#»#*DEBnG 
I IF 2ND CHANNEL DIFFERENT THAN 1ST, 

|ASK FOR AD RIGHT NOW 

fBY SETTING START BIT 

ITHEN GO GET THE VALUE 

JSTOP A/D'S 

f»#»#DEBUG 

IPOINT INDEX TO LAST A/D 

fGET THE VALUE, 

UNTO THE FLAC 

I AND RESET THE STACK 

| A BEAUTIFUL JOB, 

ICONTAINS SAMPLING WORD fOR DEVICE REG 



fXLED TAKES THE VALUE IN FLAC ANO PUTS IT IN THE LEDS 

fCLEAR A COUNTER 
fON NEGATIVE VALUE, 



XLEDi 


CLR 


HIBITS 




TST 


HORD 




BLT 


NEGNUM 




MOV 


#24l3,MT.EDGUT 




BR 


NUMLOP 


NEGNUMl 


FPABS 






MOV 


*24i5,P#LEDwUT 



I MAKE IT POSITIVE, 
I SET TOP LED TO ! » 



'.main, /' 

3?ft3 
3264 

32*5 
32A6 
326? 
^268 

3270 

1271 

3272 

3273 

32?4 

3276 

3276 

3277 

3278 

3279 

3280 

32P1 

32R2 

3283 

32*4 

3295 

3286 

32*7 

32*8 

3289 

3290 

3291 

329* 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3103 

3104 

3308 

3306 

3307 

3308 

3309 

3310 

3311 

3112 

33! 3 

3114 

3315 

33 J 6 
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NUMLOPf FPINT 



|GFT VALUE 



wOV AC»*(SP) 
FPDIV+JMMED 
FP10I 4 

0b0000 

JSP PC,XITR 

FPMUli*DIRECTiFP10 

FPINT 

SUR ACiCSP) 

ADD HIRITS,(SP5 

MOV fSP) + #S#LEDOT!T 

FPPIV+DIRECT»FP10 

INCB HIBITS+l 

CMPB HIBITS+i,#4 

BLE VUVL.OP 

RTS PC 



lOMTft STACK 
IDTVIDF VALUE RY 
IFP 10 



10 



»GFT INTEGER PART 

I AND RESTORE LESS REMAINS* 

J GET THIS VALUE 

»AND FIND DIFFERENCE 

I ADD DTQTT NOW -SHOWN 

»AWD DISPLAY NUMERAL 

IOIVIDE TO GET NF# VALUE 

JBOP COUNTER 

I AND DO , 

fS DIGITS 



jXTIC SETS THE CLOCK, ON POSITIVE ARG, IT MAKES THAT MANY 

| 1/1*015 THE INTERVAL, A«D SETS THE TIME TO 0, 

JON ZERO ARG, IT RETURNS THE TIME, 

fON NEGATIVE ARG, IT WAITS FOR THE NEXT TIC, THEN RETURNS THE TIME 



XTTCt FPINT 





NEG 


AC 




TST 


AC 




BGE 


NQSET 




MOV 


AC^IPRESET 




MOV 


!507»flCLKlN 




CLR 


DTlMt 


NOSETI 


BE© 


CLKLOP 




NOV 


ACOTIME 


CLKLOPI 


MOV 


DTI ME, AC 




BGT 


CLKLOP 




KEG 


AC 




JSR 


PC, FLOAT 




RTS 


PC 



»GET THE ARG 
t NEGATE THE ARG 

!ON ARG ,LE, 0, RETURN TIME 

I ELSE? SET CLOCK INTERVAL IN PRESET, 

|AND START CLOCK AT 1/10000 

IAND SET TIME TO 0, AND RETURN 

tON ARG ,LT, 0, 

fSET TIMER POSITIVE, 

»AND WAIT FOR CLOCK INTERRUPTS, 
»TO 8ET IT ,LE, 
ftMAKE POSITIVE) 
UNTO FLAC, 
>AND RETURN IT 



fCLKINT HANDLES LPS CLOCK INTERRUPTS, 
ITHE INERVAL IN 1/100»S, 



IT INCREMENTS THE TIME B¥ 



CLKINTI 


DEC 


DTIME 


IDECREMENT TIMER 




BVC 


NOAROV 


IIF ARITHMETIC OVERFLOW, 




CLR 


DTIME 


ICLEAR IT 


NOAROVl 


RTI 




fAND RETURN 



001 



DTIMEl '.tfORD fl 



.EN DC 



fTIMER 
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3317 








3338 








3319 




024144 




33?P 








3321 








3}?2 








3393 








3324 


024144 


013701 


024666 


3325 


024130 


020001 




3326 


024152 


002401 




3127 


024154 


000207 




3398 


024136 


012720 


164000 


3329 


024162 


000772 




3330 








3331 








3332 


024164 


005037 


024664 


3333 


024170 


005737 


024664 


3334 


024174 


001775 




3335 


024176 


007065 




3336 


024200 


000000 




3337 


024202 


000000 




3338 


024204 


007071 




333* 


024206 


123727 


001616 


3340 


024214 


003012 




3341 


024216 


007040 


023376 


3342 


024222 


007073 




3343 


024224 


007071 




3344 


024226 


010100 




3345 


024230 


062700 


025202 


3346 


024234 


020037 


024666 


3347 


024240 


002410 




3348 


024242 


013700 


024666 


3349 


024246 


162700 


000006 


33*10 


024252 


005437 


024202 


3351 


024256 


105437 


024201 


3352 


024262 


000207 




3353 








3394 








3|55 








3356 








3357 








3358 








3359 








33*0 


024264 


005701 




3361 


024266 


002004 




3342 


024270 


052737 


020000 


3363 


024276 


003401 




3364 


024300 


033701 


024660 


3368 


024304 


005037 


024660 


3366 


024310 


000207 




33*7 








3368 









'.OGEND 



I START GRAPHICS CODE WHERE IT LEFT OFF 



000014 



024660 



pTJUMPS ADDS DJMP,TEXT,KJ CELLS STARTING AT THE ADDRESS IN LOC UNTIL 
1 THF ADDRESS IV TXTPTR 



T JUMPS! 
KOPLOPl 



MORNOPl 

lLOCSET 
f 3 AND 
LOCSETl 
STILONi 

LOCGfil 
NEWLOCl 

I.OCGETI 



*QV TXTPTR, AC 

CMP LOC, AC 

RLT MORNOP 

RTS PC 

MOV #DNOP,£LOC)+ 

BR NOPLOP 

GETS LOC ARG INTO NfcWLOC 

ADDS START OF FILE", LOC 

CLP STPFLG jCLfc-AR F 

TST STPFLG 

PEO STTLON 

FPPUT+IMMED 





FPINT 

CMPB BE, 114 

BGT TOOBIG 



fPUT LAST ADDRESS IN GEN.REG 

tFlLLED TO TEXTPTR? 
jYES, RETURN 
IDNOP A WORD 

, TEST FOR IN RANGE, MULTIPLIES BY 
ENDS UP CONTAINING ADDRESS OF CELL 
LAG SO DISPLAY WILL STOP 
jWAIT TILL STOP INT, RESETS IT 
I NOT DONF YET 
lLOC, FROM FLAC INTO NEWLOC FOR RETURN LATER 



FPMUL+DIRECT,FP6 
FPABS 



TOOBId 



BELOW I 



FPINT 

MOV 

ADD 

CMP 

BLT 

MOV 

SUB 

NEG 

NEGB 

RTS 



AC, LOC 
#LOC0,LOC 
LOC, TXTPTR 
BELOW 

TXTPTR, LOC 
#6, LOC 
NEWLOC+2 
NEWLOC*! 
PC 



I INTEGER PART OF 1ST ARG 
|ON POTENTIAL OVERFLOW, 
I USE LAST LOC, 

(NOW CALCULATE ADDR, 
jGFT RID OF POSSIBLE NEGATIVE 
fXNTEGERIZE IT 
fLOC HAS ADDRESS OFFSET 
| NOW IT HAS THE ADDRESS OF THE BLOCK 



|ON ABOVE, MAKE LOCuLAST LOC 

IMAKE RETURNED LOC NEG, ON ERR 



IPUTCO TORN* AN INTEGER VALUE IN COARG INTO A COORDINATE SUITABLE 
f FOR DISPLAY IN AC, HtSlTS ALREADY CONTAINS VIS»INV BIT 
f CALL BY! MOV COORD, AC fGET COORDINATE 

, ,JSR pcputco 

»ON NEGATIVE COORDINATE, 

fSET NEGATIVE BIT 

»MAK£ POSITIVE 

fPUT IN VISwINV AND NEG-POS BITS 

I AND CLEAR HI8TTS FOR NEXT TIME 



PUTCOI 


TST 


AC 




BGE 


POSCO 




BIS 


#20000, HIBITS 




NEG 


AC 


POSCOI 


BIS 


HIBITS, AC 




CLR 

RTS 


HIBITS 
PC 



3370 024312 012737 000001 



IRETNEW STARTS THE DISPLAY AND RETURN THE CALLER HIS LOC ARG PLUS 1 
172000 RETNEWl MOV *l,MGTPC I REDSTART DISPLAY 



.MATW. 



:( 
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3371 
3372 
3173 
3374 
3375 
3176 
3377 
3378 
3379 
33R0 
3381 
33*2 
3393 
33M 
3385 
3386 
33*7 
3398 
3389 
3390 
3391 
3392 
3393 
3?94 
3395 
3396 
3397 
3398 
3399 
34A0 
34*1 
3402 
34«3 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3490 
3421 
3422 
3423 
3424 



024320 
024324 
024330 
#24332 
024334 
024336 



024340 
024346 
024352 
024356 
024360 



024362 

024364 
024370 
024374 

024400 
024404 
024410 
024412 
024416 
024422 
024426 
024430 
024434 
024436 
024442 
024446 
024454 
024460 
024466 
024470 



005037 
007000 
00701S 

900001 
040*00 
00<*207 



01*737 
010137 
005037 
007070 
000207 



010046 
005037 
005037 
013700 
012720 
012720 
005020 
012720 
012720 
010037 
005020 
020027 
002774 
012720 
012720 
012777 
010637 
012737 
012600 
000207 



024662 
024200 



000017 
001620 
001622 



024674 
024670 
024666 
170040 
117124 

001360 
100000 
024672 

037772 

160000 
025172 
000177 
024664 
025172 



024472 100401 

024474 104645 

024476 012637 001636 

024802 000002 



024504 011701 001604 
024510 010637 024664 



FP1 ! 



CLP MODE 

FPGET+DIRECTiNEirfLOC 

FPADD+IMMED 

1 

40000 

PTS PC 



lONLY USE THE SETTING ONCE 
? ORIGINAL hOC, INTO FLAC 
I ADD 1 



JRETURN TO FOCAL 



jFLOAT FLOATS THE INTEGER IN AC INTO THE FLAC 



001616 FLOATI 



MOV 

MOV 

CLR 

FPMOR 

RTS 



#17, BE 
AC,HORD 

LORD 

PC 



I TO POWER 17 

|AND HORD MANTISSA, 

»BUT NO LORD 

f NORMALIZE RESULTS 

1 RETURN TO CALLER 



iTCLEAR RESET THE TEXT FILE TO START AT TXTPTR AND CLEARS IT 



TCLEARl MOV 
CLR 
CLR 
MOV 
MOV 
V0V 
CLR 
MOV 
MOV 
MOV 
CLRLOPl CLR 
CMP 
BLT 
MOV 
MOV 

000216 MOV 

MOV 

172000 MOV 
MOV 
PTS 



LOC,»tSP5 

LPS 

ENDFL6 

TXTPfR.LOC 

• 170040, CLOO* 

#DPT*ENAB»CLOC)«- 

(LOO* 

#1360, CLOC)* 

tDCHR,CLOC5* 

LOC»INPTR 

(LOO* 

LOC##LOC«»8*D0SI 

CLRLOP 

•DJMP,tLOCJ* 

»DriLE # UOC)* 

•177#8INPTR 

8P,STPFLG 

IDriLE,»#GTPC 

C8P)+#L0C 

PC 



I SAVE REGISTER 

ICLEAR COUNTER AND FLAG 

I SET UP THE POINTER 

IRESET STATUS FOR NO ITALICS 

>PUT IN ABS PT t , DEFAULTS ENABLED 
»X»0 
|Y«1400 

t CHARACTER MODE 
lINPTR POINTS TO 1ST BYTE 
ICLEAR FILE 
EE | REACHED END? 
INO 

I INSERT JUMP, 
I TO SfART OF TEXT 
» INSERT CURSOR AT START OF FILE 
|AND SET STOP FLAG TO START DISPLAY 
I START DISPLAY 



ITSTERR COMPLETES KEYBOARD INTERRUPT ROUTINE, IT HILL RESUME 
fTHE DISPLAY ON AN ERROR 80 THAT USER CAN STOP HIS PROGRAM BUT 
{SAVE HIS DISPLAY BY OVERFLOWING THE INPUT BUFFSRC2 CHAR8) 



T0TERRI BMI N018 

ERROR + 201 + 18|*18* a 

N018| MOV <SP)**KIN 
RTI 



I YES, NO OVERFLOW 
»AND GIVE ERROR 
I GET CHAR 



JRESETD WILL CLEAR THE STOP FLAG AND RESTART THE DISPLAY ON AN ERROR 



RESETDl MOV 
MOV 



PCF,AC 
SP,STPFLG 



I EXECUTE OVERLAYFD IN5TR, 
fSET THE STOP FLAG 
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3425 

3426 
3427 
14?8 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
1449 
3450 
3451 
3452 
3453 
1454 
3455 
3456 
3457 
3458 
3459 
S460 
3461 
3462 
3463 
34$4 
3465 
3466 
3467 



024514 
024522 



024526 
024530 
024534 
024540 
024542 
024546 

024554 
024556 

024562 
024566 
024572 
024876 
024602 
024604 
024610 
024614 
024622 
024630 
024632 



024634 

024640 
024642 
024650 
024654 



&12737 

000137 



010146 
013701 
042701 
001425 
013701 
032737 

001402 
052701 

010137 
013701 
042701 
020127 
002402 
012701 
010137 
013737 
012737 
012601 
000002 



0057J7 
001403 
012737 
010637 

000002 



025172 

002022 



025202 
163777 

172004 

040000 



040000 

025204 
172006 
176000 
001400 

001J77 
025206 
172000 

000001 



024664 
025174 

15 2 * 8% 



172000 



025204 



024656 

172000 



I7200f 



mov »loc0»10,mctpc jstart display 

JMP ERR2+S0 



HIT AMD 
PUTS IT 



ILPINT HANDLES LIGHT PEN INTERRUPTS, THESE OCCUR WHENEVER A LTMF 

f USER OiriNEO AS LP SENSITIVE GETS HIT, 

I THE LP INTERRUPT ROUTINE SIMPLY TAKES THE COORDS OF THE 

f PUTS THEM IN LOG AND TAKES THE ADDRESS OF THE HIT AND 

I INTO LPLOC, 

LPINTI MOV AC,tCSP) 

MOV LOC0»AC 

BIC #163777, »C 

BEG NOLPCO 

MOV MGTX,AC 

BIT #40000, LOC0+2 



I SAVE REGISTER 

|ON CHAR MODE OR JUMP IN LOC0, 

J (BITS 11 AND 12 MOT SET) 

| DON'T INSERT 

I USE AC AS TEMP 

ITEST WHETHER COORDS IN LOC NOW 

fARE VISIBLE 



BEO INV0 

BIS #40000, AC 

INV0i MOV ACiLOC0*2 

MOV 8#GTY,AC 

BIC #176000, AC 

CMP AC, #1400 

BLT ONPIC 

MOV #1377, AC 

ONPICt MOV AC,LOC0*4 

NOLPCOl MOV 8#GTPC, LPLOC 

MOV lt,8iGTPC 

MOV (SP)+»AC 
PTI 



UF NOT, SET INV BIT IN 

INEW X COORDINATE 

f INSERT THE LP HIT COORDINATES 

>GET GTY , 

fRID OF CHARACTER REGISTER BITS 

I AND MAKE SURE NOT ABOVE SCREEN 



IMOVE Y COORD IN NOW 

|NOW SAVE PC AT TI*E OF HIT 

fRESTART THE DISPLAY WHERE IT LEFT OFF 

)RESTORE REGISTER 

I AND RETURN 



iSTPINT CHECKS STOP FLAG WHENEVER THE GT40 REACHES THE END OF THE 
IDISPLAY FILE, IF SET, IT RESTARTS THE DISPLAY, IF ZERO, IT SETS 
» IT BUT DOES NOT RESTART THE DISPLAY 



STPINTI TST 
BCQ 
MOV 

3S0PIT! MOV 
RTI 



STPFLO 
STOPIT 

#LOC*«*tMG?PC 
SP;STPFLG 



|IF«f, DON'T START DISPLAY 
lELSE, START IT AT LOC0 
fl» ANY CASE, SET FLAG 
I AND RETURN 



F0CGT.4 


f "Yil, 
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1469 








.1470 


'324656 


0252^2 




3471 


024660 


"f*a!?P0 




1472 


P24662 


(*(* PIP)!?! } 




3473 


024664 


0?" -'I 




3474 


"24666 


00 ■><;<*# 




3475 


024670 


00r*0?0 




3476 


024672 


000000 




3477 


024674 


000PO0 




3478 




024676 




3479 








3480 








3481 








3492 








3493 








3494 




010052 




3485 


010052 


010446 




3486 


010054 


023727 


001634 


3487 


010062 


001402 




3488 


010064 


000137 


024720 


3489 


010070 


000137 


024734 


3490 








3491 








3492 




003042 




3493 


003042 


000137 


024676 


3494 








3499 




001634 




3496 


001634 


177700 




3497 








3498 




001762 




3499 


001762 


177700 




35010 








35«1 








3502 




024676 




3503 








3504 








3501 








3506 


024676 


023727 


001634 


350? 


024704 


001403 




3508 


024706 


023727 


001634 


3509 


024714 


000137 


003090 


3510 








3511 








3512 








3313 


024720 


004737 


025000 


3514 


024724 


023727 


001634 


3515 


024732 


001420 




3516 


024734 


013704 


001634 


35S7 


024740 


105714 




3««8 


024"' a? 


100376 




3519 


024744 


111664 


000002 


3520 




002 




3571 


024750 


023727 


001634 


352" 


024756 


001006 





13101 PAGE 66 



175614 



I STOARAGE AREA 



T.PLOf I 

HIBITSI 

H ODF| 

STPFtGl 

TXTPTRl 

ENDFLGl 

INPTRI 

LFSl 



'.WORD 
.WORD 
J WORD 

;wnpn 

.WORD 
'.WORD 
.WORD 
, WORD 



LOC0 jADDRESS OF LAST LTTF PEN HIT 

t VISIBLE AMD NFGATTVF BITS OF MODE 

I MODE HF NEXT nATUW (SET BY FDT51 

1 |>0 TELLS STOP INTERRUPT TO RESTART 

IPOINTER TO START OF TEXT FILE 

I FLAG WHEN TEXT FlLE»4fl REACHED 

fPOlNTER TO NEXT BYTE IN TEXT FILE 

jCOUNTER OF LINES USED 0» SCREEN 

I MAKES CURRENT LIME THE LAST 



NOSI 



>XOUT 

MOV CHAR#«(8p) 

CMP OUTDEV,#TENOUT 

BEQ NOS 

JMP TXTDIS 

JMP NOSHOW 



,»0UTY 

JMP TSTTXT 

,«OUTDEV 
'.WORD 177700 

,«ERR2*i0 
.WORD 177700 



»5AVE OUTPUT CHARACTER 
pON ALL BUT TEN OUTPUT, 

pNOW DO MORE 



pGO TEXT FOR GRAPHICS OUTPUT, TOO 



pMAKE GRAPHICS DEFAULT OUTPUT MODE 



IAL80 DEFAULT AFTER ERRORCOR -«C) 



'.ISUSEND 



p TSTTXT RETURNS WITH % 8lT SET IF TTY OR G IN USE 

177364 TSTTXTl CMP OUTDEV,#TPS 

BEQ EDITIT 

177700 CMP OUTDEV, #177780 pOUTDEVitRfl MEANS GRAPHICS 

EDlTITl JMP OUT*** 



tTEXTDIS DISPATCHES TO TXTHAN AND RETURNS TO XOUT ROUTINE 



177700 



175614 



TXTDlSl JSR 
CMP 
BEQ 

N08H0WI MOV 
T8TB 
BPL 
MOVB 
,IFDF 
CMP 
BNF 



PCTXTHAN 

OUTDEV, #177700 

N08END 

OUTDEV,CHAR 

9CHAR 

• •2 

•8P,2(CHAR) 

TERM 

OUTDEV, ITEWQUT 

NOSEND 



IDISPLAY ALL BUT 10 OUTPUT 
tIF SCREEN OUTPUT CO S) 
pDON'T OUTPUT THIS CHAR, 

I WAIT POP XMIT READY FLAG 

pNOW SEND THE CHAR, 

fTHEN IF PDP«10 OUTPUT, 
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1553 


024760 


005737 


023156 


3534 


024764 


001003 




3525 


0247*6 


000001 




3526 


02*77? 


000001 




1557 


024772 


000001 




1528 




001 




3599 


024774 


012604 




3510 


024776 


000205 




3511 








3512 








1513 








3514 








3535 








3516 








3517 








3538 








3539 


026000 


010446 




3540 


025002 


016604 


000004 


3541 


025006 


042704 


000200 


3542 


025012 


120427 


000007 


3543 


025016 


001003 




3544 


025020 


005237 


172002 


3545 


025024 


000454 




1546 


025026 


120427 


000033 


3547 


025032 


001002 




3548 


025034 


112704 


000044 


3549 


025040 


120427 


000015 


3550 


025044 


001423 




355i 


025046 


120427 


000012 


1552 


025052 


001404 




3553 


025054 


120427 


000040 


3554 


028060 


002436 




3555 


025062 


0004 14 




3556 


025064 


005237 


024674 


3557 


025070 


005737 


024670 


3558 


025074 


001004 




3559 


025076 


023727 


024674 


3560 


025104 


002403 




3561 


025106 


004737 


024363 


3562 


025112 


iBwwUti 




3563 


028114 


110477 


177653 


3564 


025120 


023727 


024672 


3565 


025126 


002367 




3566 


028130 


023727 


024673 


3567 


025136 


002402 




3568 


025140 


005237 


024670 


3569 


025144 


005217 


024672 


3576 


025150 


112777 


000177 


3571 


025156 


012604 




3572 


025160 


000207 




3573 








3574 








3575 








3576 




002 





000040 



037770 
037663 



177514 



»AND IN FOCAL* 



I WAIT POP A CO'TPT.E OF InTERUPTS 



INOW RESTORE CHAR, 



I TXTHAN, THE TEXT HANDLER, INSERTS THE CHARACTER TN 9SP (PUT 

) THERE BY THE FOCAL OUTPUT ROUTINE) INTO THE TEXT FILE, 

| WHEN IT RECEIVES A LF LATER THAN END OF PIMS-100 BYTES, OR 

I WHEN IT HAS FILLED THE SCREEN, IT CALLS TCLEAR 

1 TO CLEAR THE TEXT FILE, 



TST 


TOHOST 


BNF 


NOSEND 


WAIT 




WATT 




WAIT 




,ENDC 




WOSENDI MOV 


(SPJ+,CHAR 


RTS 


R5 



TXTHAN I MOV 
MOV 
BIC 
CMPB 
BNE 
INC 
BR 

SILENTl CMPB 
BNE 
MOVB 
CMPB 
BEO 
CMPB 
BEO 
CMPB 
BIT 
BR 

LFCHARl INC 
TST 
BNE 
CMP 
BLT 

LASTLI J8ft 
BR 

ADDCHRl MOVB 
CMP 
BGE 
CMP 
BLT 
INC 

NOTFULl INC 
MOVB 

TXTDUNI MOV 
RTS 



CHAR,«C5P) 
4(SP),CHAR 
#200, CHAR 
CHAR,#BELL 
SILENT 

M6TSTAT 

TXTDUN 

CHAR, 133 

,♦6 

#44, CHAR 

CHAR,#CR 

ADOCHR 

CHAR,ILF 

LFCHAR 

CHAR, 140 

TXTDUN 

ADOCHR 

LF8 

ENDFLG 

LA8TL 

LrS,M0 

ADDCHR 

PC, TCLEAR 

TXTDUN 

CHARtBINPTR 

IWPTR,#LOG0« 

LASTL 

INPTR,IL0C«« 

NOTFUL 

ENDFLG 

INPTR 

#177,»INPTR 

(SP)+,CHAR 

PC 



I SAVE REGISTER 
»GET INPUT CHAR 
iCLBAR BIT FOCAL SETS 
>ON BELL 

jRING THE BELL 

fON ALTMODE, 



ICR? 
I YES, 
»LF? 
I YES, 



I ECHO $ SIGN 
ADD IT TO FILE, 



'.IfDr TERM 



GO CHECK LINES ON SCREEN 

JANY OTHER CONTROL CHAR? 

»YES, 1GMORE IT 

f INSERT ALL OTHER CHAR.S 

J BUMP LIME COUNT 

»ENDFLG«1 MEANS LAST LINE 

I YES, LAST LINE 

f SCREEN FILLED* 

I NO, TREAT LF MKB ANY OTHER CHAR, 

I CLEAR TEXT BUFFER STARTING AT TXTPTR 

»AMD WAIT FOR MtXT CHAR, 

I MOVE NEW CHAR, IN 
6+DDSIEE-2 PREACHED END OF FILET 

I THEN CLEAR THE FILE 
>6*DDSIZE»110 »IF PTR PAST END-72 CHAR.S, 

fMAKE THIS THE LAST LINE, 
f INPTR PT.S TO NEXT BYTE 
1 INSERT CURSOR THERE 

tRESTORE REGISTER 



JWUUC run i6nniB«u nwvnwr- i-wmmv^v 



FOCf!T s | 
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1577 




023016 




3578 








3579 








35R0 








15R1 








35R2 








35R3 


023016 


1 1 '6 


17 /**»2 


35fi4 


023022 


12? .27 


*-?*i 5 


3585 


023026 


0fc: """ft 




3596 


023030 


1*5137 


23156 


3587 


023034 


("12737 


300101 


15A8 


023042 


00«421 




35*9 


023044 


121627 


000224 


3590 


021050 


301006 




359 J 


023052 


105137 


023157 


1592 


023056 


001013 




3593 


023060 


012716 


000J37 


3594 


023064 


000412 




3595 


023066 


105737 


023156 


3596 


923072 


001407 




3597 


023074 


109737 


175614 


3598 


023100 


002375 




3599 


023102 


111637 


175616 


36*10 


023106 


005726 




3601 


023110 


000002 




36«<2 


023112 


000137 


010114 


3603 








3604 








36«B 








J6<*., 








36^7 








3608 


0231J6 


013746 


175612 


3609 


023122 


021627 


000377 


3610 


023126 


001411 




3611 


023130 


105737 


023157 


1612 


023134 


001404 




3613 


023136 


005737 


001636 


3614 


023142 


100763 




3615 


023144 


000402 




3616 


023146 


004737 


025000 


3617 


023152 


005726 




3618 


023154 


000002 




3619 


023156 


000 




3620 


023157 


000 




3621 




001 




3622 




000 




3623 




01'330 





>DBOT*LPSSlZ 



tK checks for *f and *t, on *f 

f WHICH TELLS KEYBOARD INPUT TO 
I ON *T IT THROWS THE TOFOCL FL 
J GO DIRECTLY TO THF SCPEFN OR 



ITERM CODE FOLLOWS LPS CODE AT START OF DNFW 

IT THROWS THE TOHOST FLAG 
GO TO EITHER THF PDP<*10 OR TO FOCAL. 
AG WHICH TFLT,S PDP*i<* TNPUT WHETHER TO 
TO FOCAL. 

I GET CHARACTER FROM KEYBOARD 
!*F? 

I YES , FLOP FLAG 

175610 MOV H01»SITFNTN I AND ALLOW INTERRUPTS IF NOT 0* YET 

lAND IGNORE THIS CHARACTER 
J"T? 

)YES, FLOP FLAG 

|AND IF FOCAL LISTENING TO 10, IGNORE CHAR 

lELSE, REPLACE CHAR WITH l„l. 

|AND GIVE IT TO FOCAL 

fSENDINGG TO FOCAL! 

PIF SO, GO DO EXECUTE USUAL CODE 

I ELSE, WHEN READY, 

1SEND CHAR TO THE 10 

fRESET STACK, 

lAND EXIT 

I GO RE-ENTER KEYBOARD INTERRUPT ROUTINE 

fTENINT HANDLES PDP-10 INPUT INTERRUPTS, IT SENDS THE CHARACTER EITHER 
I TO BOTH FOCAL AND THE SCREEN OR JUST TO THE SCREEN DEPENDING ON THE 
iSTATE OF THE FLAG LABELLED »TOFOCL» 



K! 


MOV 


9#TKS+2,*(SP5 




CMPB 


»SP,#206 




BNE 


NQTF 




COMB 


TOHOST 




MOV 


H01#0ITFNTN 




BR 


NOFKO 


NOTFl 


CMPB 


0SP,#224 




BNF 


NOTT 




COMB 


TOFOCL 




BNF 


NOEKO 




MOV 


1337, PSP 




BR 


GOFOC 


NOTTI 


TSTB 


TOHOST 




BED. 


GOFOC 


TEST10I 


TSTB 


••TENOUT 




BGE 


TEST10 




MOVB 


0SP,MTENOUT*2 


NOEKOI 


TST 
RTI 


CSP)* 


GOFOCI 


JMP 


KINT+4 



TENINTI MOV 
CMP 
BEG 
TSTB 
BEO 
TST 
MI 
BR 
NORCSPt JS* 
IONOREl TST 
RTI 
TOHOSTl LbYTE 
TOFOCLl .BYTE 

;endc 

,ENDC 

;end 



»#TENIN*2,»CSP) 

CSP3#i377 

IGNORE 

TOFOCL 

NORESP 

KIN 

GOFOC 

IGNORE 

PCTXTHAN 

CSP5* 






INIT 



I GET INPUT 

f IGNORE RUBOUTS 

IFOCAL LISTENING TO 10? 
fOVERFLOW? 



fir FOCAL DEAF TO 10, JUST ECHO CHAR,, 
f RESET STACK, 

I AMD RETURN 

1*1 MEANS TERMINAL, MEANS FOCAL 

|«1 MEANS LISTEN TO I0f MEANS DON'T 

I END OF TERMINAL HOOKUP CODE 

IEND OF GT40 CODE 
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ABSFF 


006556 


1751 


1903» 
























AC 


■%000001 


421 


53ft 


62# 


485* 


486* 


552* 


553* 


554* 


555 


556* 


557 


614* 


615 






617 


62?* 


623* 


624* 


625 


634* 


635 


617 


650* 


662 


665 


779* 


780 






817 


90R* 


909 


911* 


914 


919 


978* 


987* 


988 


103f> 


1050* 


1092 


1221* 






1*25* 


1226* 


1227* 


1228* 


1229* 


1?86* 


1287 


1289 


1291 


1325 


13 30 


1344* 


1346* 






1351 


1365* 


1376 


1401* 


1402* 


1403 


1405 


1407* 


1408 


1521 


1595 


1 6 2 * 


1733 






1763* 


1764* 


1765* 


1766 


1794* 


1796 


1801* 


1803 


1807* 


1817 


1824* 


1825 


1827 






1831* 


1867* 


1871* 


1875 


1912* 


1913* 


1927* 


1943* 


1944 


1955* 


I960 


1979 


1981* 






2011* 


2013 


202! 


2034 


2056 


2058* 


2059* 


2060 


2067* 


2068 


2070* 


2071 


207 3 






2076* 


2100* 


2120* 


2188 


2192 


2195* 


2197* 


2199* 


2220* 


2347* 


2348 


2349 


2496* 






2497* 


2499* 


2500* 


2501* 


2518 


2560* 


2361* 


256? 


2563 


2382* 


2583 


2600 


2606 






2617* 


2618 


2623 


2627* 


2643* 


2644* 


2645 


2797* 


2798* 


2799 


3002 


3018* 


3024 






3026* 


3029 


3034* 


3033* 


3061* 


3062* 


3064 


3066 


3069* 


3071 


3076 


3086 


3090* 






3091* 


3092* 


3093 


3112* 


3116* 


3117 


3119* 


3120* 


3121* 


3123* 


3124* 


3132 


3137* 






3136* 


3324* 


3325 


3344 


3360 


3363* 


3364* 


3381 


3423* 


3434 


3435* 


3436* 


3438* 






3442* 


3444 


3445* 


3446* 


3447 


3449* 


3450 


3433* 












ADGS 


■ 176770 


2566* 


23721 
























ADDB 


■ 176772 


2568 


25731 
























ADDCHP 


023114 


3550 


3555 


3560 


35631 




















ADDFF 


006230 


1740 


1789# 
























ADIN 


■ 170400 


2778ft 


2779 
























Arix 


005344 


14S0 


I492t 
























AGO 


005372 


318 


15001 
























AH 


■1000004 


65» 


1606* 


1630* 


1633 


1835* 


1616* 


1734 


1771* 


1773* 


1789 


1805* 


1814 


1869 






1883* 


1887* 


1889* 


1919 


1921 


1942* 


1947 


1936* 


1989 


1978 


1988 


1990* 


1992* 


AL 


■4000003 


66* 


1393* 


1593* 


1596 


1599* 


1600* 


1601 


1603* 


1604* 


1605* 


1733 


1772* 


1806* 






1812 


1867 


1884* 


1883* 


1891* 


1917 


1924 


1954* 


1961 


1991* 








algza 


006506 


1804 


1815 


1884ft 


1896 




















ALGZB 


006522 


1886 


1890ft 
























ALIGNA 


006270 


1793 


18031 
























ALIGNB 


006256 


17981 


1802 
























ALIST 


■ 001433 


3S?t 


1514 
























ALL 


■ 000001 


70* 


1067 


1131 






















ALTAKA 


006324 


1797 


18171 
























ARGNXT 


004476 


12421 


1264 
























ARO 


005330 


321 


1483ft 
























ASCII 


023420 


30161 


3031 
























ASK 


003244 


262 


14671 


1303 






















ASPACE 


005340 


319 


1490ft 
























ATAKF 


005304 


320 


322 


14791 


1486 


1481 


Utl 
















ATLtST 


■ 001344 


3049 


1514 
























AXIN 


001642 


4161 


304* 


309 


141* 


558 


942 


839* 


893* 


1038* 


1405 


1477* 






AXOUT 


■1000003 


449 


55 


64 


311* 


319* 


S20# 


522 


323 


535 


693* 


696 


697 


698 






701 


702* 


703 


714 


756 


873 


891 


892 


898 


901* 


902* 


906 


912 






914 


919 


1013 


1048 


1050 


1053 


1057* 


1058* 


1097 


1112 


1129 


1140 


1147* 






1148* 


1130 


1133 


1136* 


1190 


1194* 


1470 


1472* 


1473 


1481* 


1495* 


1496 


1302* 






1324 


2173* 


2206 






















BDIVX 


006476 


1877 


1881* 


1938 






















RE 


001616 


4041 


660* 


1630 


1717* 


1727* 


1733* 


1758* 


1793 


1824 


1897* 


1952 


1979* 


2011 






2293 


2405 


2424* 


2434* 


2329* 


2621* 


2624* 


3054 


3339 


3380* 








BEGIW 


■ 001100 


134* 


439 
























BELL 


« 000007 


2768# 


3542 
























BELO-S* 


024262 


3347 


33591 
























BH 


«%000002 


631 


1609* 


1611 


i§29 


I7i3 


His* 


i"22 


i"25* 


1725* 


1734* 


1759* 


1791 


1 f JO* 



.MAXM.i 


f ^Y!i, 


FOCGT.I 


I 


BL 


S%000003 


BOTTOM 


00165? 


BUFBF.G 


■ 01 1330 


BUFF'JL 


002202 


BUFR 


001644 


CCFLG 


-' 001601 


CFRS 


001654 


CHAR 


a%000004 
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CHTN 

CINT 

CLCU 

CLKAOR 

CLKIN 

CLKT 

CtQSE 

CLRLOP 

COCO 

COMB'IF 

COMTjST 

COPYTjN 

eopm 

CR 

CRLF 

DBOT 

DCHR 

0D5IJSE 

0BB6 

DBCOWV 

DECOVl 

DECOW2 

DECOY 

DELFTE 

OETN 

BIFL 
DIGTSA 
DIflTST 
DIKF** 



002710 
002756 
010256 
010210 
000134 
170404 
010274 
022626 
024426 
£24010 
001461 
001250 
104630 
004040 
000015 
005015 
021016 
100000 
012576 
001610 
007702 
007722 
010002 
007764 
000004 
010006 
02S172 
006600 
002654 
104644 
000000 



1809* 

1918* 

64* 

;8l0v' 

420# 
**16 
510 
4171 
396* 
424# 
45* 
615 
780* 
875* 
980 
1213 
1901* 
2157* 
2250* 
2518* 
2607 
3546 
184 
776 
2327# 
23031 
2781* 
2777* 
2327* 
251* 
34001 
3109 
3931 
2581 
2051 
206 
741 
751 
29181 
2762* 
2752* 
4011 
2174 
2178 
2237# 
2233* 
98« 
2226 
2923* 
1917# 
218 
217* 
15791 



1813* 

?919 

1610* 

1812* 
1986* 
850 
417 
526* 
554 
2280* 
695 

561 
635 
785 
876 
982 
1246 
1515 
2158* 
2251 
2521* 
3016 
3548* 
767* 
779* 
2647 
2314 



2328* 

821 
3402 
3111* 

503 

988 
1063 
1112* 

511 

488 
2920 
2938 
2918 

496* 
2187 
2217 
2243 
2241 

545 
2240* 
3404 
1932 

743* 
2151 
2037 



1814* 
1921* 
1611* 

1830* 

1343 
418 

555* 
2283* 
908 
65 
653 
787* 
891* 
1014 
1262 
1524* 
2176 
2253 
2522 
3032 
3549 
769 

2801 



23381 
1224 



509 
1100 

137 

800 
1922 
3013 

2934 

529* 
2215* 
2219 



1094 

3407 

748 
2155 
2185 



1829* 
1925* 
1617 
1835 

1381 
419 

558* 
2829* 
1119* 
506 
722* 
788* 
898* 
1015* 
1265 
1525 
2183 
2255* 
2527* 
3049 
3551 



2047 



1139 

899 
1512 
2942 
3390 

2962 

872 



1864* 

19 30* 
1631* 
1865* 

1401 
26361 

894* 
2833* 

511 

724* 

790 

899 

1047 

1279 

1527 

2204 

2259 

2528 

3485 

3553 



2236 



976 
2475 

1877 

3066 

874* 



2221* 2238 



1874* 

1950 

1632 

1875* 

2451 



1034 



535* 
733 

793 
903* 
1083* 
1282 
2005* 
2216 
2260* 
2546 
3516* 
3563 



1015 



1068 
878 



1878* 
1975 
1715 
1879* 

2641* 



537 
735 
801* 
904 
1055 
1314 
2010* 
2218 
2261 
2547* 
3517 
3571* 



1880* 
1983 
1718* 
1881* 

2919 



1118* 1403 



569 

743* 

833 

907 

1080 

1318 

2060* 

2222 

2263* 

2549* 

3519* 



1882* 
1985* 
1726* 
1884 



570* 
747* 
843 
950 
1086 
132? 
2110 
2224 
2264* 
2585 
3529* 



1885 
1987* 
1728* 
1899* 



589 
768* 
845 
956 
1128 
1326 
2116* 
2229 
2270* 
2589 
3539 



1525 2347 2767* 3549 



3401 3564 3566 
1494* 1499* 



1895 

2006 

1735* 

1917* 



592 

770 
847 
960 
1157* 
1449 
2122* 
2235* 
2457* 
2591 
3540* 



1898* 1903 



1760* 
1924* 



602 

773 

849 

976 

1170 

1471 

2133* 

2232 

2459* 

2593* 

3541* 



1799* 
1929* 



604 
775* 
860* 
978 
1214 
1492* 
2152 
2240* 
2517 
2597 
3542 



2193 



2234 



2242 



2419 



2423 



2426 



3140 



3341 



3372 
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nivp-F 


006566 


OIVZER 


006642 


OJMP 


s 160000 


DNOp 


* 164000 


no 


004*66 


OOCOMT 


004204 


DOER 


004220 


OOGR 


004106 


DOGRPl 


004124 


DOGRP2 


004120 


nOXTT 


004210 


OPT 


* 114000 


DSIEE 


■ 001625 


DSTP 


■ 173400 


OUWASC 


023454 


DYEC 


■ 110000 


OXIT 


007540 


G 


■%000002 


ECHOT.S 


■ 001480 


ECOLOG 


003252 


FDITIT 


024714 


EFUN 


004614 


EFUWS 


004656 


ELPAR 


004S04 


EMHIR 


005672 


EMIME 


005704 


EMINO 


005726 


EMRET, 


005744 


EMT 


m 007000 


EMTHR 


009736 


EMTO 


005716 


EKAR 


« 003124 


ENDF^G 


024670 


ENIT2 


003070 


ENUM 


004574 


ENUMJ 


004604 


EPAR 


004460 


EPAR2 


00491B 


EPURE 


004436 


ERASE 


003744 


ERASET 


* 104640 


PRASEV 


■ 104636 


ERG 


004010 


ERL 


004002 


ERROR 


* 104400 


ERRORC 


003502 


ERR 2 


001752 


ERT 


003770 


ERTX 


004050 


ERV 


003764 


ERVC 


004034 


ERVX 


005100 



1742 


1912« 




















1916 


1935« 




















2760# 


293? 


3046 


3113 


" 3403 














2758# 


3328 




















263 


1127ft 


2548 


















1146 


1149 


1155# 


















1135 


1138 


1160ft 


















1131 


1134ft 




















1132 


1141ft 




















1139* 


1152 


1154 


















1069 


11561 




















2761 • 


2925 


2928 


2935 


2959 


2979 


2982 


3395 








27311 


27511 


2752 


















2759# 






















3025 


3028ft 




















2763ft 


2972 


2976 


















2125 


2160ft 


2223 


2225 


2228 


2230 












541 


2055* 


2062 


2067 


2099* 


2111 


2113 


2114 


2117 


2119* 


2139 


371# 


772 




















891ft 


893 


910 


















3507 


3509ft 




















1253 


1276ft 


1281 


















1247 


1292ft 




















1244* 


1266 




















1643 


1693ft 


1674 


















1648 


1657ft 




















1645 


1665* 




















1649 


1672ft 




















15471 


1549 


1550 


1551 


1552 


1553 


1554 


1555 


1557 


1558 


1559 


1562 


1563 


1564 


1566 
















1647 


1669* 




















1646 


16611 




















2756ft 


2928 


2935 


3395 
















3392* 


3475ft 


3557 


3968ft 
















8061 


2649 


2816 


















1292 


1270* 




















12721 


1294 




















1219 


12371 




















1238 


12468 




















1222 


1239* 




















366 


10/nft 




















213« 


1082 


1088 


















21H 


544 


806 


1083 


1103 














1094ft 


1101 




















1078 


1087 


1091ft 


















243ft 


440 


526 


561 


808 


852 


984 


1026 


1160 


1176 


1268 


1388 


1483 


1638 


1935 


1966 


2282 


2286 


2297 


2632 


2832 


3416 


263 


269 


271 


273 


275 


277 


282 


283 


981 


9841 




468 


476* 


2844 


3426 


3498 














1081 


1086ft 




















214 


1118* 




















1083ft 


1096 


1098 


1099 
















1077 


1103* 




















212 


1401* 





















2140# 



1560 



1561 



1307 



1308 



.MAlM^f 
POCf,T,| 


'ICYU, 




ETERM 


004374 


FTFRMN 


004566 


FITKpwi 


004544 


F.TERM2 


00440ft 


EVA?.. 


004520 


EVAL" s 


104660 


evalwx 


004664 


FVAt/.X ■ 


104660 


f » 


%0f?0003 


FCODE ■ 


007200 


fco*?t 


004306 


FCOVT2 


004312 


fcos 


010426 


rcos2 


010466 


FCOS4 


010526 


TEMT 


008472 


PERRO 


0067J2 


FIHOE 


007654 


figoi 


007S66 


FIG02 


007636 


FIG03 


007664 


FIQ04 


007674 


FINCR 


004354 


FIWOLN b 


104624 


FIND*! 


002574 


FINDO 


002622 


FINDX 


002966 


FINERR 


004252 


flHffV 


004266 


nsw 


001626 


FLAR6 


001612 


FLIMTT 


004300 


FLISTi 


001336 


FLI8f2 


001330 


FLOAT 


024340 


FL08GN 


007034 


FLOUT 


007450 


FLTOO 


005556 


FLTOOl 


005544 


FLTOWE 


010560 


FLTX 


005624 


FLTZER 


003830 


FNADOR 


006146 


FNTA8L ■ 


001166 


FOfiOi 


007042 


FOG02 


007*72 


t0003 


007110 


FO«o4 


0P17124 


FOP 


0<*4222 


HPAB8 ■ 


007073 


FPAD" a 


007010 


FPDTV ■ 


007030 


FPttF.T « 


007000 
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12141 

1256 
125! 



2770# 
230 
229# 
55# 
1230 
1183 
11904 

160 
2406 
2426* 

92 
1945 
2196 
2177 
2182 
2200 
2103 



2011 
697# 
700 
202 
298 
297 
4091 
4021 
296 
300* 
296# 
3125 
2007 
2109 
1598 
16031 
167* 
2419 
Miff 

199 
17491 
1611 
20131 
2014 
2008 
2032« 

267 

1560* 

1200 

15521 

659 



1263 

12671 

1263 » 

1218# 

1243 

2998 

1296* 

951 
2054* 
1566# 
1188# 
1205 
24011 
2415# 
2435 
19861 
1948 
2199# 
2179# 
2184 
2204# 
22071 
U779 
89? 
704 
7051 
6959 
1171 
U81I 
1462 
1231 
1185(1 
1175 
1178 
3139 
20111 
2115 
16071 
U43 

3423 

1517 
9911 

1766 
1286 
2020 
2021* 
2017 
2039 
11681 
1941 
1550» 
2304 
819 



1267 



1234 

12491 

3022 

1171 

2056 



19661 
2202 

2194« 



973 



1521* 
1272 



33801 

21391 

1644 

2426 
2208 

1261 

2026 
2022 



1848 
2036 
2417 
1199 



1297 
305! 

1177 
2058 



1460 
3088 

1187 
2062 



3094 

1284 
2064* 



3098 

1323 

2065 



1328 

2068 



1497 
2070 



2515 
2108 



2544 
2114 



2563 
2124* 



2609 
2142* 



1011 



11761 1179 



2474 
2030 



1049 

1310 
2185 



1131 



2191 2294 



1648 
24171 



1646 



1647 1648 



1649 



1650 



1655 



1659 



1663 



1667 



20281 



3342 

2235 
2420 
1223 



2305 
3140 
1229 



2399 2419 
1549« 2043 



2423 
2193 



2426 
2303 



3373 
2337 



2413 



2473 



2551 
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pplNT ■ 007071 
PPM1JT, b 007040 



FPNEG 


B 


0P7074 


FPNOR 


S 


007070 


FPPOW 


e 


007050 


FPPUT 


■ 


007060 


FPPINT 


s 


007076 


FPPNT 




007356 


FPRNTP 




007376 


FPSGN 


a 


007072 


FPSU8 


■ 


007020 


FPURE 




005522 


FP1 




024332 


FP6 




023576 


FREAD 


■ 


007075 


FROM 


■ 


000003 


rSTN 




010416 


F8IEE 


% 


002154 


FTR¥ 




007434 


PEER 


a 


007077 


GALJi 




002554 


GALM 




002522 


GEND 


a 


024144 


GETARG 




004674 


GETC 


a 


104614 


GETCH 


a 


104614 


GETF 




006114 


GETtN 


a 


104622 


GETLWX 




002454 


GETYAR 




004704 


GETX 




003232 


GGROUP 




002560 


GOFOf 




023112 


GONE 




002146 


GOTO 




003436 


GRALL 




023320 


GROOVE 


■ 


104650 


6R0VX 




002672 


GROVE 




002650 


68ERCH 




004730 


GSlEE 


B 


002004 


65WIP 




005060 


GS0 




004764 


GS1 




004776 


GTAKE 




005170 


6TE8T 




005160 


GTESTN 




002562 


GTESTW 




002512 



2604 

661 
2610 
1553* 
2432 
15611 
1293 
1554# 
1174 
2429 

820 
2101 
2112 
15S9* 
1203 
1594 
33741 
3057* 

676 

819 
2432 

158 
29161 
2118 
1S64I 

663 

652 
31511 

657 

1891 
1513 
2771# 
17331 

1991 

200 
1254 

190 

666 
SS94 

268 
2985 
221* 

222 

605 
1317 
2899« 
13831 

1327 

1321 

1384 

1424 

655 

6601 



3372 

1324 
2999 

2018 
2569 
1852 
1557* 

1186 
2431 

1463 

2108* 

2116* 

1844 

15511 

15961 

3140 

1271 

1203 

2433 

23981 

2918 

21311 

2215 
6721 
654 

3319 

1168 
514 

1519 

1739 
530 
6481 

13131 

8711 
673# 
1196 

524 
954 
29871 
1062 
7541 
736# 
13211 
29041 
1387 
1331* 
1332 
1426 
14321 
676* 
677 



1329 
3023 

2024 
3056 
2009 
2339 

1189 

2545 
15631 

2127 

2433 



3341 

15621 
1223 



2922 

2567 

662* 

13091 

B32 
2186 

1792 
972 



3603* 

972# 

1099 

2916 



1342* 
1435* 



2540 



1558* 

3059 

2037 

3 34! 

2035 

3383 

1201 
3335 
2475 

2129 



1468 

944 

2221 

1818 
1010 



3614 



1137 



1849 
3085 
2044 

2190 



1232 



2143 



2033 

3089 
22*51 

2398 
127 3 



2046 
313! 
2234 

2415 
1498 



2191 
3145 
2242 



1555U 



2*516 
3338 

24W4 



2032 



2559 
3343 

2414 



2185 



2564 
2422 

2313 



2581 
2425 

2403 



2605 
2430 

2416 



1574* 2043 



2235 



2303 2404 2413 2414 2422 2425 2430 



2603 

959 

2355 



1046 



962 

2817 



1091 



97S 985 1248 1280 1316 1319 1451 



1127 1520 



.MAINo 


f ^CYll, 


focgt,! 


I, 


GTPC 


e 172000 


GTPY 


00B1 34 


GTPY? 


005144 


GTST6T 


s 1*72002 


GTX 


■« 17?e»04 


GTY 


s 172006 


GT40 


* 000000 


HIBtTS 


024660 


WORD 


00162* 


IF 


001374 


IGNOP. 


002114 


IGNORE 


023152 


imvfo 


« 000005 


INADOR 


005662 


INCH 


b 104612 


INDEV 


001632 


INFIT.E 


023670 


INTT 


011330 
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1129* 
1191* 
1241* 
1325* 
1439* 
1587* 
1684* 
1697 
1876* 
1959* 
2<H40* 
2173 
2278 
2546* 
2611 
3075 
f .■• 1 9 
3517 

23b6 



513 

634 
1034* 
1276* 
1377* 
2088* 
2448 
2540* 



470* 
801 
1130* 
1193 
1246* 
1330* 
1447 
1889* 
1697* 
1998 
1883 
i960* 
2041* 
2179* 
2287 
2549 
2812 
3108* 
3529 



585* 
856 
1035* 
1277* 
1409* 
2089 
2450* 
2600* 



471 
807* 
1141* 
1194 
1247* 
1339* 
1449* 
1589* 
1961 
1699 
1895* 
1961* 
2042* 
2192* 
2295* 
2550 
2640* 
3110* 
3539* 



587 
659* 
103ft* 
1278* 
1430* 
2091* 
2451 
2611* 



480* 

817* 

1142* 

1195 

1249* 

1336* 

1449 

1590* 

1666* 

1700 

1900 

1975* 

205 3 

2195 

2299* 

2562* 

2641 

3115 

3540 



591 

670* 
i^3R 
1279* 
1452 
2093 
2457 
2615* 



481 
818* 
1144 
1196 
1282* 
1347 
1470* 
1991* 
1669 
1701 
1931* 
1977* 
2054 
2204* 
2315 
2565* 
2642* 
3390* 
3571 



594* 

673* 
1113* 
1283 
1474* 
2094 
2459 
2616* 



494* 

e§4 

1145 

1197* 

1283* 

1348 

1471* 

1592 

1682* 

1702 

1947* 

1978* 

2055 

2206* 

2316 

2566 

2796* 

3406 

3583* 
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SPWXT 


003124 


SQMFND 


010252 


SQX 


010250 


SRFTM 


002226 


SR^LST 


* 001400 


STACK 


B 000000 


STACKO 


001706 


START 


a 104632 


STARTV 


001646 


STARTX 


002034 


STATUS 


■ 177776 


smnN 


024170 


STLIN 


003626 


STOP 


001704 


STOPTT 


024650 


STPADF 


a 000320 


STPFT,G 


024664 


STPINT 


024634 


STRING 


B 0000)0 


SUBEND 


■ 024676 


SUBFF 


006222 


SWITCH 


b 001631 


TASK 


b 104656 


TASK* 


009412 


TASK4 


009410 


TCLEAR 


024362 


TCRLF 


005404 


TCRLF2 


009464 


TDtlMP 


010564 


TDt'MPl 


010870 


TDMMP2 


010612 


TDUM»3 


010600 


TDUMP4 


010696 


TEMp 


BI000000 



TEN 

TEVADP 

TENIN 

TENINT 

TENOUT 

TERM 

TERMS 

TERSTE 

TESTC 

TESTX 

TEST10 

TEX 

TEXT 



007102 
000300 
179610 
023116 
179614 
000000 
001412 
000150 
104620 
002334 
023074 
002966 
031772 



8321 


1242 
























2298 


2316* 
























2312 


2315* 


2428 






















330 


534 


536* 


538 




















3241 


1022 
























819 


821 


1174 


1185 


1186 


11B8 


1189 


1200 


12fc?3 


1223 


1224 


1498 


1578# 


2043 


2047 


2235 


2236 


2303 


240! 


2403 


2404 


2413 


2414 


2416 


2422 


2425 


2429 


2430 


2431 


2432 


2433 


2545 
















89 


95 


105 


439* 


494 


807 


2642 


2645 


2796 


2799 


2863 






207* 


1084 


1089 






















418! 


542 


892 


1342 


1408* 


2447 
















208 


278 


494* 


521 


559 


2822 
















821 


451b 


498» 






















33331 


3334 
























533 


1012 


1034* 






















272 


434* 
























3462 


3464* 
























2783# 


2787 


2803* 


2804* 




















2997b 


3332* 


3333 


3406b 


3424* 


3461 


3464* 


34731 












2803 


3461* 
























1466* 


1472 


1500 






















3478* 


3502 
























1741 


17711 
























4101 


648* 


669B 


672B 


1060 


1067 


1095 


1134 


1141 


1145* 


1151 


1270* 


2181 


2227 


























2271 


1459 


1467 






















228 


1514* 


1522 


1526 




















310 


311 


1513* 


1516 


1528 


1533 
















2964 


3074 


3390* 


3561 




















307 


1512* 
























308 


1512* 
























309 


2447* 
























24481 


2492 
























2449 


2456* 
























24811 


2478 
























2464 


2471* 
























411 


52 


611 


539* 


940* 


S41 


942 


842* 


849* 


850 


854* 


855 


857* 


869 


894 


895 


90iB 


907* 


916 


921 


1144* 


1193 


1220* 


1221 


1233* 


1336 


1342b 


1144 


1364 


1375 


1383 


1592* 


1593 


1807* 


1612* 


1611* 


1614* 


1615 


1628* 


1629b 


1632* 


1633* 


1693 


1658 


S672* 


1673 


1791* 


1794 


1800* 


1811* 


1817* 


1869* 


1869b 


i87U# 


1874 


1938* 


1980* 


20)1* 


2036* 


2541* 


2769 










20358 


2037 


2198 


2234 


2242 


















27841 


2808* 


2809* 






















27858 


3987b 


3608 






















2808 


3608* 
























2786* 


3486 


3521 


1597 


3599* 


















2807 


2838 


2902 


2948 


3520 


3576 
















333* 


776 


779 


787 




















2900* 


2903* 


2916 


2942 




















193* 


1076 


1250 


1309 




















198 


585* 
























3597* 


3598 
























586 


S88 


590 


594* 


636 


699 


703 


714 


736 


755 


757 






2933 


2935* 
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THIST.N 


001606. 


400« 


697* 


903 


974 


105? 1142 1150* 


THRfWG 


a 000^04 


117* 


1200 


149P 


1575* 


2545 


TINTR 


0P5430 


?#•; 


1519# 








TJ!?MPS 


0?4144 


"b< j 


307 3 


314P 


3324# 




TK5 


b 177*60 


n 


41? 


476 


499* 


1696* 22&1 2277 2370 


TLIST 


= 0<H441 


360# 


1175 


1178 


1480 




TOF 


007260 


* " 5 6 


2072 


2074 


2076# 




TOFOCL 


02315" 


3591* 


3611 


3620# 






tog 


007246 


2069 


2071# 








TOHOST 


023156 


2949* 


3523 


3586* 


3595 


36191 


T008TG 


024242 


3340 


33481 








TOP 


001650 


419* 


1118 








TOP 


007310 


2087 


20891 


2095 






TOS 


007324 


2090 


2093i 


2097 






TOT 


007276 


20851 


2092 








TPP 


003S34 


30! 


312 


996* 






TPR1 


003540 


302 


313 


999# 






TPS 


« 177564 


?8# 


413 


47? 


796 


2372 3506 


TOUOT 


005442 


306 


15241 


1530 






TRAPH 


001714 


108 


4S1I 








TSIZE 


» 001000 


2734* 


2753* 


2754 






TSTERR 


024472 


2835 


34151 








TSTTX* 


024676 


3493 


35061 








TTSIZE 


■ 006009 


2754* 


2934 


2962 






TXTfSfS 


024720 


3488 


35131 








TXTDUN 


025186 


3545 


3554 


3562 


357H 




TXTHAN 


025000 


3513 


35391 


3616 






TXTJMP 


023642 


3050 


30691 








TXTpT 


024666 


2962* 


3010 


3048 


3064 


3068* 3069 3071* 3324 


TYPE 


003224 


281 


1459# 


1464 






UTX 


001220 


872# 


877 








VERR 


004670 


1288 


1307» 


1311 


1312 




VIS 


023304 


2974 


2980 


29841 






WAYOWT 


023654 


3070 


30721 








WGO 


003742 


1089 


1061 


10691 






WHIPV 


004770 


13351 


2842 








WHOOPS 


001640 


4181 


497* 


1680 


1688* 


1694 1695* 


WRED 


003730 


1062 


1066* 








WRIG 


003724 


10631 


1068 








WRITE 


003646 


284 


1046* 








WRITEt 


003670 


1051 


10538 


1056 






WRITE2 


003654 


1049# 


1064 








WTESTG 


003712 


1049 


1060* 








XABS 


006376 


142 


1841# 








JTADC 


011070 


154 


2559* 








XCKARG 


010772 


25211 


2530 








XCHMO 


010756 


2515* 


2523 








XCHR 


010760 


148 


2516* 








XC"R1 


011004 


2519 


2526* 








XCuF 


?24130 


2876 


3147* 








XDET.ET 


?0J272 


99 


8971 








XDTs 


023700 


2884 


3085# 








XDOX 


003336 


909* 


915 


917 


920 


922 


XOTH1S 


003160 


913 


919# 









2*26 



3583 



3346 



3348 



3393 



3474* 
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XD3 

JTECUTF 

XEL 

XE* 

XER 

XERR 

XET 

XEX 

XEXIT 

XEX2 

XEX2A 

XEX3 

XEX4 

XFCLK 

XrSBR 

XITW 

XI33 

XI33X 

XLP 

XMOV 

XOUT 

XPRMTL 

XPT 

XPTR 

XRAW 

XROL 

X8ET 

XSGw 

XSKp 

X80T 

XTSTLP 

XTXT 

XVEC 

XXCO 

XYCO 

I 

^EROOM 



003276 
003544 
011322 
01121* 
011316 
011326 
011250 
011134 
011302 
011152 
011214 
011226 
011240 
010272 
011026 
006406 
010022 
010044 
024064 
023254 
010052 
003100 
023264 
000002 
010704 
010726 
023274 
006402 
023514 
010154 
002636 
023364 
023244 
024000 
024004 
020724 
006370 
023160 



898* 


900 
























285 


1002» 
























2613 


2630# 
























2600i 


2631 
























2614 


2627* 
























2632« 


























26150 


























IS? 


25811 
























2619 


2623# 


2628 






















25871 


2598 
























2590 


2592 


2603# 






















2588 


2607# 
























2586 


2608 


26111 






















164 


23378 
























146 


25401 
























162 


1847# 
























168 


22508 
























22561 


2273 
























2878 


3131 # 
























2894 


29768 
























186 


2259« 


3484 






















204 


6168 
























2892 


29798 
























15721 


























150 


2491* 
























2494 


24968 


2904 






















2890 


29821 
























144 


18448 
























2888 


30438 
























156 


22938 
























224 


7338 
























2886 


30098 
























2896 


29728 
























2882 


31088 
























2880 


31108 
























23451 


2348 


2349 






















18381 


1951 
























861 


1191 


i!$t 


134 


168 


175 


177 


179 


181 


183 


185 


187 


189 


191 


193 


i»f 


201 


203 


205 


307 


309 


311 


213 


215 


217 


219 


321 


321 


215 


227 


229 


234 


358 


304 


317 


324 


329 


333 


352 


360 


366 


371 


378 


386 


393 


3988 


400 


402 


404 


405 


406 


408 


410 


414 


424 


4288 


501 


943 


774 


834 


992 


1167 


1290 


1320 


1404 


1406 


1482 


1634 


1808 


1851 


1866 


1890 


1920 


1923 


1984 


1989 


2057 


2063 


2098 


2189 


2354 


2262 


2285 


2296 


2338 


2361 


2366 


2378 


2410 


2460 


2499 


2636 


2646 


27988 


2600 


28221 


28251 


28398 


28441 


28639 


28651 


2919* 


2922* 


2934# 


29421 


3151 


33198 


3478 


3484* 


34921 


34958 


3498# 


3502* 


3518 


3547 


3577# 





.MAIN 

ADC 

£DfB 

ADP 



AST, 

ASLB 

ASR 

ASRB 

BCC 

BCS 

BEQ 



( 
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BGE 

BGT 

BHI 

BHXS 

BIC 

BIS 

BISB 

BIT 

BITB 

BLE 

$LO 

BLOS 
BLT 

BHI 

BNE 



BPt 

BR 



BVS 
CLC 



1729 
2301 

520 
122? 
167? 
2080 

621 
1225 
1798 

466 
1866 

469 

501 

785 
1098 
1792 
2182 
3334 

510 
3565 

981 
3340 

699 

915 

480 
2993 

499 
3442 

669 
1722 
1067 
1205 

543 
2800 

893 

603 
3402 

586 
2223 

512 
1081 
2087 
2619 

467 
2254 

924 

917 
1274 
1667 
2129 

;980 

361? 
1720 
1926 



1813 

553 
1 2 '• 1 
17 2P 
2081 

\ *? "' •- 
18^5 
1*12 

2410 

50^ 

784 

1149 

1863 

2217 

3437 

983 

3598 

1482 

734 
2312 

540 
2617 
2597 

788 
2352 
1151 
1598 

736 

1404 

745 

3448 

652 

2271 

538 

1087 

2127 

2828 

531 

226J 

534 

922 

1294 

1670 

2134 

2983 

1730 



1868 

556 

575 

;*88 

f a\ ^ m 

1809 
1613 



521 
834 
1154 
1892 
2225 
3441 
1238 

1802 

851 

768 
2640 
2972 

2565 
3117 
2181 
1795 
794 

1916 

774 

1554 

664 

2289 

593 

1192 

2177 

2830 

786 

2296 

559 

945 

1297 

1674 

2149 

2985 

3063 



1882 

6?4 
1348 
J Pi 7 
2102 
1718 
241! 
1829 
2300 



590 
844 
1222 
1896 
2228 
3462 
1804 

2007 

958 

775 
3087 
2976 



3439 
2227 

1797 
913 

2631 
2014 
3960 

994 
2460 

618 
ilfl 
2184 
3017 

986 
3518 

605 

997 
1332 
1815 
2202 
3019 



1925 

660 
1364 
1814 
2158 
1765 

1864 



616 
846 
1263 
1916 
2230 
3487 
1984 

2015 

1219 

902 
3092 
2979 



920 



2017 
3567 

979 
2498 

638 
1234 
2219 
3033 
1243 

639 
1003 
1433 
1818 
2238 
3027 



2328 

702 
1385 
1817 
2192 
1929 

1942 



636 

848 
1288 
1949 
2252 
3507 
1989 

2022 

1406 

1228 
3120 
2912 



1826 
957 



2121 

1061 

2519 
755 
1290 
2241 
3133 
1281 

677 
1019 
1464 
1832 

2243 

3060 



779 
1407 
1838 
2327 
2078 

2409 



654 
856 
1384 
1951 
2298 
3515 
2063 

2039 

2592 

1351 
3124 

3014 



1828 
1216 



2200 

1096 
2988 
791 
1327 
2279 
3522 
1320 

704 
1024 
1488 
1819 
2273 
3070 



904 

142? 
1867 
2434 

2347 

309J 



663 
877 
1424 
1958 
2464 
3550 
2069 

2057 



1352 
3436 

3044 



2125 
1264 



2406 

1135 
2613 
7*7 
1490 
2281 
3524 
1594 

706 
104>4 
1503 
1901 
2314 
3109 



905 
U38 
1869 
2450 
2560 



666 

910 
1426 
1976 
2494 
3552 
2072 

2090 



1599 
3446 
3093 



2132 

1266 



2428 

1146 
3419 
799 
1681 
2308 
3543 
1634 

725 
1069 
1522 
1923 
243T 
3122 



911 

1448 
1881 
1026 
2582 



668 
955 
1491 
2008 
2523 
3596 
2074 

2097 



1614 
3541 

3097 



3069 
1387 



3011 

1256 
3614 
873 
1714 
2310 
3947 
1721 

737 
1101 
1530 
1933 
2478 
33 29 



916 

1500 
1924 
3035 
2594 



700 
977 
1526 
2066 
3050 
3610 
2112 

2115 



1764 
3101 



1429 



3031 

1317 

879 
1723 
2351 
3558 

1851 

748 
1104 
1533 
1964 
2530 
3545 



1058 

1601 
1978 
3062 
2595 



703 
1037 
1528 
2095 
3096 
3612 
2146 

2118 



1977 
3102 



1945 



3053 

1486 

900 
1873 
2353 

3585 
1877 

758 
1132 
1620 
2020 
2598 
3555 



1148 
1654 
1979 
3U5 
2596 



757 
1051 
1617 
2098 
3100 

3025 

2504 



2231 
3123 



2452 



3067 

1920 

961 
1890 
2449 
3590 
1886 

777 
1179 
1655 
2026 
2628 
3562 



1198 

1657 
2010 
3345 



769 
1059 
1716 
2109 
3118 

3114 

2614 



2240 
3362 



2590 



3126 

1948 

1056 
1932 

2586 
3592 

1904 

R35 
1183 
1659 
209? 
2974 
3588 



1206 
1662 

2067 



771 

1093 
1790 
2153 

35 36 

3361 
3055 



252 
33 



2646 

3347 

2189 

1068 
1946 

2608 

2596 

880 
1257 
1663 
2103 
2977 
3594 
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CLR 


497 


498 


650 


1035 


1217 


1249 


1276 


1315 


1402 


1478 


1695 


1758 


1759 


1760 


1899 




198P 


198 5 


2004 


2028 


2040 


2064 


2075 


2116 


2140 


2175 


2402 


2541 


2584 


2644 


2798 




2947 


2949 


2957 


2960) 


2961 


2986 


3018 


310ft 


3112 


3134 


333? 


3US 


3 371 


338?. 


3391 




339? 


3396 


340<* 


























CLRB 


MP 


1499 


1605 


1611 


2283 


2833 




















CMP 


50C 


5A9 


523 


542 


698 


705 


744 


770 


781 


783 


796 


85F 


855 


892 


912 




914 


919 


1140 


1289 


1345 


1586 


1403 


1405 


1423 


1428 


143? 


1619 


166S 


I79fi 


1803 




1827 


1919 


1944 


2013 


2056 


2062 


2068 


2071 


2086 


2089 


2094 


2096 


2111 


2114 


2117 




2131 


2251 


2309 


2350 


2451 


2477 


2618 


2630 


2645 


2799 


3010 


3064 


3066 


3113 


3325 




3146 


3401 


3447 


3486 


3506 


3508 


3514 


3521 


3559 


3564 


3566 


3609 








CMPB 


506 


511 


537 


589 


592 


602 


604 


615 


635 


653 


733 


735 


754 


773 


79« 




793 


833 


843 


845 


847 


876 


899 


956 


960 


976 


980 


982 


1055 


1080 


1086 




1153 


1170 


1215 


1218 


1237 


1262 


1265 


1326 


1449 


1515 


1525 


1527 


1597 


2016 


2152 




2176 


2183 


2216 


2218 


2224 


2229 


2278 


2307 


2311 


2522 


2585 


2589 


2591 


2607 


2827 




3016 


3024 


3032 


3049 


3054 


3339 


3542 


3546 


3549 


3551 


3553 


3584 


3589 






COM 


1635 


2077 


2220 


2272 


2499 


2616 




















COMB 


874 


2280 


2829 


3586 


3591 






















DEC 


857 
2306 


1481 
2424 


1717 
2437 


1801 

2503 


1872 


1931 


1957 


2021 


2038 


2059 


2119 


2120 


2124 


2126 


2199 


DECS 


798 






























HALT 


1689 






























INC 


539 


747 


901 


1727 


1800 


1807 


1811 


1831 


1913 


1943 


2012 


2085 


2099 


2100 


2237 




2356 


2354 


2413 


3030 


3644 


3556 


3568 


3569 
















INCB 


679 






























IOT 


98 






























JMP 


87 


572 


988 


1158 


1452 


1766 


1993 


2208 


2358 


2649 


2816 


2835 


2840 


2845 


2991 




3037 


3077 


3149 


3426 


3488 


3489 


3493 


3509 


3602 














J8R 


482 


518 


533 


585 


657 


1002 


1012 


1143 


1168 


1192 


1242 


1254 


1291 


1374 


1377 




1460 


1468 


1515 


1616 


1834 


1862 


1905 


1914 


1962 


1963 


2101 


2123 


2143 


2174 


2178 




2187 


2467 


2470 


2540 


2542 


2548 


2601 


2815 


2811 


2963 


2964 


2987 


2989 


2990 


3001 




3009 


3043 


1073 


3074 


3111 


3135 


3139 


3147 


3148 


3513 


3561 


3616 








MOV 


439 


451 


453 


453 


454 


471 


476 


477 


478 


485 


486 


494 


495 *'■ 


496 


503 




504 


513 


519 


522 


539 


841 


553 


585 


558 


594 


614 


635 


634 


656 


659 




662 


695 


696 


697 


701 


743 


807 


816 


817 


818 


843 


854 


859 


891 


901 




906 


908 


999 


950 


974 


990 


1034 


1016 


1038 


1047 


1048 


1050 


1057 


1112 


1118 




1119 


1128 


1129 


1130 


1142 


1144 


1147 


1150 


1155 


1186 


1157 


1172 


1181 


1182 


1190 




1191 


1193 


1194 


1195 


1197 


1331 


1231 


1319 


1340 


1341 


1346 


1247 


1361 


1272 


1282 




1283 


1285 


1386 


1396 


1313 


1932 


1135 


1195 


1316 


1143 


1341 


1144 


1147 


1365 


1375 




1376 


1381 


1383 


1401 


1408 


14)5 


14)8 


1463 


1470 


1472 


1474 


1478 


1477 


1487 


1495 




1502 


152? 


1556 


1187 


1558 


1519 


1590 


1591 


159S 


1595 


1606 


1609 


1609 


1610 


1617 




1618 


1628 


1639 


1630 


1613 


1658 


1661 


1656 


1669 


1671 


1683 


1683 


1684 


1685 


1686 




1687 


1688 


1694 


1696 


1697 


1698 


1699 


1700 


1701 


1702 


1733 


1734 


1735 


1793 


1824 




1835 


1847 


1874 


1875 


1884 


1885 


1895 


1197 


1898 


1947 


1950 


1952 


1953 


1954 


1985 




1956 


1959 


1960 


1961 


1975 


1982 


2005 


2011 


2030 


2011 


2014 


2042 


2053 


2055 


2058 




2060 


2061 


2070 


2073 


2076 


2079 


2108 


2111 


2123 


2133 


2139 


2141 


2142 


2145 


2157 




2173 


2179 


2194 


2195 


2198 


2204 


2206 


3312 


2233 


2250 


2259 


2260 


2264 


2270 


2277 




2287 


2293 


2394 


2295 


2299 


2302 


2348 


2349 


2447 


2472 


2474 


2491 


2492 


2495 


2496 




2505 


2517 


2518 


2521 


2528 


3839 


2543 


2546 


2549 


2550 


2562 


2566 


2568 


2583 


2606 




2611 


2612 


2615 


2620 


3621 


2623 


2624 


2641 


2642 


2643 


2647 


2648 


2796 


2797 


2801 




2802 


2803 


2804 


2805 


3806 


2808 


2809 


2836 


2946 


2958 


2959 


2962 


2984 


2988 


2997 




S00<* 


3003 


3013 


3015 


3021 


3038 


3034 


3036 


3045 


3046 


3047 


3048 


3061 


3068 


3069 




307! 


3072 


3075 


3076 


3086 


3110 


3116 


3119 


3137 


3324 


3328 


3344 


3348 


3370 


3380 




3381 


3390 


3393 


3394 


3395 


3397 


3398 


3399 


3403 


3404 


3405 


3406 


3407 


3408 


3417 




3423 


3424 


■3**8 


3434 


3435 


3438 


3444 


3445 


3449 


3450 


3451 


3452 


3453 


3463 


3464 



